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PREFACE 


This book is one of the first to explore the problem-solving potential of True BASIC 
(Version 2.0), an entirely new and structured version of BASIC, developed by the 
originators of the BASIC programming language, and published in 1985. True BASIC 
retains all the simplicity of the earliest versions of BASIC, and has superb machine- 
independent graphics, making it arguably the best high level language for beginners. On 
the other hand, it has features which will be quite unrecognizable to old-time BASIC 
addicts: modern control structures (DO-WHILE, DO-UNTIL, Block IF, SELECT CASE), 
named subroutines with arguments and local variables, modules, pictures (graphics 
subroutines) and optional line numbers. These features enable it to take its place as a 
serious scientific problem-solving language of the first degree. 


The approach taken in this book is one developed over many years of teaching 

programming, in FORTRAN, Pascal and other versions of BASIC, to first-year 

university students with no computing experience. It can therefore be used as a “teach 

yourself” guide by anyone wishing to learn True BASIC, and who has access to a 

computer which will run the True BASIC Language System. The computer is presented 
as a tool for solving interesting, real-world problems, and examples from many areas, 
as wide apart as business and biology, but particularly science and engineering, are 
discussed. The technicalities of each new programming construction are therefore 
generally presented only after a motivating example. Since the objective of this book is 
to enable you to solve problems using True BASIC, the earlier chapters are in a sense 
a preparation for later ones, where you will be introduced to some modern computer 
applications, such as simulation, modelling and numerical methods. There are also a 
large number of exercises, taken from a variety of areas. Most of these have solutions 
provided. Some of those for which solutions have not been given have been successfully 
used as class projects in teaching situations. 


siructured programs are developed throughout the book. The notorious GOTO 
statement, the target of most of the criticism of earlier versions of BASIC, is rendered 
entirely unnecessary by the control structures of True BASIC. 


Emphasis 1s also laid on programming style, and guidelines for writing clear, readable 
programs are presented. 


It must be stressed that this book is not a technical reference manual, but rather an 
exposition of how to use True BASIC to solve problems, so new constructions are 
generally introduced as the problems presented require them. All the details of 
particular statements will not therefore always be found in the same place. However, 
there are exhaustive syntax summaries in the appendices, and although the treatment 
of the language in this book is almost complete, you are referred to the True BASIC 
Reference Manual in the few instances where some details have been omitted. The 
version of the language used is 2.0. 


True BASIC conforms closely to the proposed American National Standard for BASIC 
(ANS BASIC). Any differences from this standard are mentioned in the text. The True 
BASIC screen editing facilities described in this book are for the IBM PC and most 
compatibles, although the formal language definition is machine-independent. 
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No specialized mathematical background is needed to follow most of the examples. 
There are occasional forays into first-year university mathematics, but these are 
self-contained and may be glossed over without loss of continuity (you may even find 
them interesting!). 

It is hoped that this book will give you some insight into the ways that computers in 
general, and True BASIC in particular, may be used to solve real problems, and that 
after working through it you will be better equipped to solve problems for yourself. 
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CHAPTER 1 


GETTING GOING 








As little as 20 years ago computers were still regarded with a great deal of suspicion. 
However, at this late stage of the 20th century it is surely not necessary to justify the 
need to learn computing. The last few years have seen a flood of microcomputers into 
offices, factories, schools, hospitals, supermarkets, homes, farms, game parks, and 
even universities! Apart from the interest factor, anyone who 1s “computer literate”’ is 
better equipped for a wide range of careers than someone who is not. 


1.1. Computers 


You are probably familiar with using an electronic calculator to find numerical answers 
to arithmetic problems. The simplest sort can only do basic arithmetic and display an 
answer. [he next step up is one with a single memory location, where an intermediate 
result may be stored, and with function keys, such as sin, cos, log, etc. Even better 
calculators may have more memory locations, so that different intermediate results may 
be stored during a long and involved calculation. 


tlowever, if you have to perform the same sequence of arithmetic operations on a 
calculator many times for different sets of data, it can become extremely tedious. So 
even more sophisticated calculators allow you to store, in some suitable coded form, the 
sequence of operations (or instructions) needed to calculate the solution of the 
problem. This sequence of instructions is called a program. To carry out the entire set 
of calculations you need only load the program into the calculator, press the “run” key, 
provide the necessary data, and sit back while the machine churns out the answers. A 
calculator like this is called programmable. A computer, whether it is a ‘“‘micro” (or 
personal computer) like the IBM PC, ora large ‘“‘mainframe”’ like the IBM 370, is really 
only an advanced programmable calculator, capable of executing and storing sets of 
instructions, called programs, in order to solve specific problems. 


1.2. BASIC 


The particular set of rules or conventions for coding instructions to a computer is called 
a programming language. There are many such languages, e.g. BASIC, FORTRAN 
and Pascal. BASIC, which stands for Beginners All-purpose Symbolic Instruction 
Code, was developed by John Kemeny and Thomas Kurtz at Dartmouth College, New 
Hampshire, U.S.A. The first BASIC program was run on a General Electric 225 
computer at 4 a.m. on Ist May 1964, and the world of computing has never been the 
same since! The major advantage of BASIC is that it is by far the easiest “high level” 
programming language to learn, as is evidenced by the vast number of children who use 
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it successfully. In 1978 Kurtz estimated that five million school children had learnt 
BASIC; Galanter (1983) reports that seven and eight year-olds are learning to write 
simple BASIC programs at his computer school for children. Another advantage of 
BASIC is that it can be used on virtually any kind of microcomputer. 


The first microcomputers to appear in the early 1970s used a primitive version of 
BASIC, and it was this version that for various reasons was modified into the versions 
available on present microcomputers. These versions are extremely machine-depen- 
dent (e.g. a BASIC program written for a ZX-80 will not run as it stands on an Apple) 
and have a number of ugly features, which have in fact largely contributed to the bad 
name that BASIC has among many serious programmers. These versions have been 
dubbed ‘‘Street BASIC — a horrible dialect of a beautiful language” by the originators 
of BASIC, Kemeny and Kurtz (1985a), in their highly readable description of the 
history and philosophy of BASIC, Back to BASIC. 


While Street BASIC was infecting the microcomputer world in epidemic proportions, 
Kemeny and Kurtz, with a team of enthusiasts, were at work correcting some of the 
valid criticisms of the earliest forms of BASIC, viz. its lack of structure. The results of 
their labours, ‘““True’’ BASIC, was published in 1985. It has many outstanding features. 
It retains the simplicity and clarity of the original BASIC, so that statements like PRINT, 
FOR-NEXT, IF-THEN-ELSE, INPUT, READ-DATA, etc., which you may already know from 
other versions of BASIC, will work just the same. Yet True BASIC has powerful 
control structures, modular programming features, superb graphics, library facilities 
and is hardware-independent (1.e. the same True BASIC program can be run on any 
computer that supports the language). This makes it a scientific problem solving 
language in its own right, and a serious contender with languages such as Pasca! and 
FORTRAN. The aim of this book is to enable you to solve problems in a variety of areas 
using True BASIC. 


1.3. Running True BASIC Programs 


Your ultimate aim will be to write your own program coding for whatever problem you 
want to solve, and you will be eager to get on with this task. However, the greatest 
hurdle facing you at the moment, if you are a computer novice, is getting the computer 
you are using to do some work for you. The examples in this chapter are therefore very 
easy, and are given without much explanation (this will follow in the next chapter). You 
should run these examples on your computer as soon as possible. Do not stop trying 
until you have succeeded! 


Introducing Yourself to the Computer 


Seat yourself comfortably in front of the computer. If you have your own personal copy 
of the True BASIC Language System ona floppy diskette, it is assumed that you have 
followed the instructions in the True BASIC User’s Guide for installing the system on 
your own computer. Put the diskette into drive A. (Throughout this book it is assumed 
that your computer has two disk drives, which are called A and B. If this is not the case, 
mentally delete all references to B from now on, and swop diskettes in the drive when 
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necessary.) The power switch is usually in some inaccessible place, like behind the 
machine. This is deliberate, so that you cannot accidentally switch it off and lose 
everything in your current session that you might not have saved. The computer should 
display the “‘system prompt” 

A> 


which means it is ready for you to do something. Type the word HELLO and press the 
- Return (Enter) key. This calls up the True BASIC System. 


If you are using some sort of menu-driven student system, carefully follow the 
instructions on the screen for calling up True BASIC. Remember to press Return after 
every response you make, to communicate that response to the computer. 


If something goes wrong, and all else fails, “‘reboot’’ the system by holding down the 
Ctrl and Alt keys (on the left of the keyboard) simultaneously with the fingers of one 
hand (preferably the left) while pressing the Del key (on the right of the keyboard) 
briefly with any free finger. Incidentally, you can’t damage the computer by pressing the 
wrong keys, so don’t worry! 


Once you are in True BASIC, the screen will look as shown in Figure 1-1, except that 
the area above the solid line should be blank. The screen is divided into two sections. 


Figure 1-1. Layout of Windows 


Line Tags Program Statements 


o PRINT "What is your name”; Editing 
. . gaINPUT N$ Window 
“aPRINT "Hi there, "; NS 


pEND 


: Untitled 

True BASIC here. Version 2.01 

Copyright (c) 1987 by True BASIC, Inc. All rights reserved. 
Type SPLIT to see a menu of the function keys. 


Ok. | 
é History 
Command Line 


Window 


The upper section is called the editing window (it will be completely blank until you have 
entered a program, as described below). The lower section is called the history (or 
command) window. The cursor should be in the history window initially. Press the 
function key F1 on the left of the keyboard. The cursor moves to the top of the editing 
window, and a small rectangular blob, called a line tag, appears in the top lefthand 
corner. Press the function key F2. The cursor moves back to the command line of the 


history window. The keys Fl and F2 therefore “toggle” the cursor between the two 
windows. 


You are now ready to enter your first True BASIC program. Press F1 to get into the 
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editing window. Type the following four-line program one line at a time (use the Shift 
key to get uppercase letters): 


PRINT "What is your name’; 

INPUT N$ 

PRINT "Hi there, "; NS 

END 

Note that the cursor moves as you type each line. At the end of a line, press Return, and 
a new line tag will appear on the line below. 


If you make a mistake, the easiest way to correct it at this stage is to use the Backspace 
key, which deletes characters to the left of the cursor. If you miss out some letters, move 
the cursor (using the left and right arrows on the righthand side of the keyboard) to the 
place where you want them, and type the letters. All the text to the right will be 
automatically shifted to make room for the new letters. 


If you miss out an entire line, move the cursor to the extreme left until it is below the 
line tag of the line in front of which you want to insert the missing line. Press Return, 
and a new line will appear. If you want to delete an entire line, position the cursor under 
the line tag of the offending line, and press the Del key. The whole line disappears. (If 
you do this by mistake, you can retrieve the most recently deleted line by pressing F7.) 


The editing window should now look as shown in Fig. 1-1. Each line in the editing 
window is called a program statement, and the whole set of four statements is called a 
program. When the program 1s correct, get back into the history window (with F2). The 
cursor is now at the command line (the line with ““Ok”’ and nothing else) waiting for you 
to issue a command. To run (or execute, or carry out) the program, press F9, or type 
the word “‘run”’ followed by Return. The effect is the same, and the computer should 
ask you for your name. Type your name (still in the history window), press Return, and 
it should politely greet you by name. Note that the results, or ““output’’, from the 
program appear in the history window. This type of program is called “‘interactive”’, 
because you interact with the computer: it waits for you to do something before it 
proceeds. 


At this stage, the ““Ok”’ prompt should be displayed again in the command line. Run the 
program again (with F9), giving a different name, and see what happens. To print the 
program on the printer, make sure the printer is connected, and type the command LIST 
(you may use either upper or lower case letters) on the command line. To print the 
output of the program (1.e. the results) type 


RUN >> 


In the command line. To print whatever appears on the screen, hold down a Shift key, 
while pressing PrtSc (on the right). As a final experiment, type 


PRINT N$ 
in the command line, followed by Return, and observe what happens. 
To save the program on a diskette, place a formatted diskette in drive B, and type 


SAVE B:greet 
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in the command line. The red light next to drive B will go on momentarily, and the 
computer will respond with 


4 lines saved. 


The program has been saved on the diskette as a file with the name “GREET.TRU” 
To check that it is there, type 


FILES B: 


in the command line, and the names of all True BASIC files on the diskette 1n drive B 
will be displayed in the history window. Note that an extension ‘‘. TRU” has been added 
to indicate that the file was produced by the True BASIC system. To load a copy of the 
program from the diskette back into the editing window, first use the NEW command to 
clear the editing window (this is not strictly necessary), and then type (in the command 
line) 

OLD B:greet 


The program should reappear in the editing window. You should be getting the idea by 
now that the editing window is for the program, while the history window 1s for 
commands and output. When you have finished the session, and want to get out of True 
BASIC, type the command 


BYE 


If you have not saved your current program before issuing the BYE command, True 
BASIC takes the precaution of asking you whether you want to save it before returning 
you to the system. 


Adding Two Numbers 


The next program adds any two numbers and prints their sum. Use the NEW command 
to clear the editing window (if there is already a program there) and then enter the 
following four lines: 

INPUT A, B 

LET SUM = A+B 

PRINT "The sum of’; A;"and"; B;"is’; SUM 

END 


Run the program (F9) and the computer will display a ‘‘?” indicating that it is waiting 


for some information (input) from the keyboard. Type the two numbers to be added, 
on the same line, separated by a comma, so that the whole line looks like this: 


f2, 3 


Don’t forget to press Return, or you will wait forever! The output of the program 1s: 


The sum of 2 and 3 Is 5 


Run the program a few more times, using different data each time. Experiment with 
negative numbers and decimals. (For a minus sign use the hyphen or the minus symbol 


on the extreme right. Computers use decimal points, not commas; use the full-stop for 
this. ) 
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The way you type the input is important. Run the program and give the input as 


2 3,4 

(i.e. with a space between the first two digits). Note that it doesn’t like the space. The 
same response occurs if you type a letter instead of a number for the input. Also try 
giving it only one number for input and see what happens. 


Compound /nterest 


Suppose you have $1000 saved in the bank, which compounds interest at the rate of 9% 
per year. What will your balance be after one year? You must obviously be able to do 
the problem in principle yourself, if you want to program the computer to do it. The 
logical breakdown, or structure plan, of the problem is as follows: 


1. Get data (initial balance and interest rate) into computer 
2. Calculate interest (9% of $1000, i.e. $90) 

3. Add interest to balance ($90 + $1000, i.e. $1090) 

4. Print out new balance. 


Enter the following program into the editing window (type NEW on the command line, 
if necessary, to clear the editing window): 


LET BALANCE = 
LET RATE = 0.09 
LET INTEREST = RATE * BALANCE 

LET BALANCE = BALANCE + INTEREST 
PRINT BALANCE 

END 


Run the program, and observe that no input is required now (why not?). The output 
should be the number 1090. Save this program on your diskette under the name 
“B:MUNNY” for further use later on. 


1000 


Another way of naming the program is first to type the command 
NEW B:MUNNY 


This names the program you are about to enter (which is called the current program) 
with the name “B:MUNNY.TRU”. The name appears on the title line between the two 
windows. When you have finished the program, and want to save it, the command SAVE 
by itself will save the program on the diskette. 


1.4. Editing a Program 


By this stage you should be able to enter a short program (designed by someone else) 
and run it. So far, editing the program has been limited mainly to the use of the 
Backspace key. In this section we look at some features of the True BASIC Editor. 


Before we get started, if you have a colour monitor you might like a change of scenery. 
Hold down the Ctrl key and press the letter F. The colour of the text changes. Press F 
again (still holding down Ctrl). The colour changes again. In this way you can cycle 
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through all the available colours until you find the one most pleasant to work with. 
Ctrl-B changes the background colour in the same way, while Ctrl-E changes the colour 
of the screen edge. Note that the colours in the two windows operate independently. 


You may have noticed that the text in the history window soon disappears from view. 
There are two ways of dealing with this. 


Firstly, you can change the relative sizes of the two windows with the SPLIT command. 
E.g. 


SPLIT 10 


will cause the line separating the windows to be drawn in line 10 (from the top) of the 
screen. There are 25 lines on the screen. The default split is at line 18 (the “default” 
situation in computing is what happens if you do nothing). 


Secondly, you can ‘‘scroll’”’ the history window up and down with the PgUp and PgDn 
keys on the right of the keyboard. The same applies to the editing window when the 
program gets too long to see all at once. 


Get a program into the editing window (e.g. “MUNNY’”’) to experiment with the 
following editing features. 


Cursor Movement Keys 


Left arrow left one character 

Right arrow right one character 

Up arrow up one line 

Down arrow down one line 

Home top of current window 

End bottom of current window 

PeUp up One “page” in current window 
PeDn down one “‘page”’ in current window 
Tab 


Shift-Tab 
Cirl-Left arrow 
Cirl-Right arrow 


Start of next word or number 
Start of previous word or number 
beginning of current line 

end of current line 


Editing Keys 

Backspace delete previous character 

Del delete current character 
Ctrl-Home delete previous word 

Ctrl-PgUp delete current word 

Esc delete from cursor to start of line 
Ctrl-End delete from cursor to end of line 
Del (on line tag) delete current line 

F7 restore last deletion or insertion 


If you keep an arrow pressed down, the cursor moves continuously. This also applies to 
most of the other keys, and 1s called key cycling. 


If you position the cursor under the last character of the /ongest line of a program, and 
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then press the up or down arrow, the cursor jumps to the end of the statement in each 
line. 

If the cursor is under a line tag and you press Backspace, the current line is joined to the 
one above it. If Return is pressed anywhere in a line, the line is split at that point. 
To get the cursor past the last character in a line use the space bar. 


If a character is typed at any point, the characters on its right are all moved to the right. 
This is the default (usual) mode. If the Ins key is pressed, the cursor changes shape, and 
characters are overwritten and not moved to the right. This overwrite mode persists 


until Ins is pressed again. 


When the computer detects an error in a program during execution, an error message 
is printed in the history window, and the cursor stops at the position of the error in the 
editing window so that you can begin correcting immediately. 


Some more advanced editing features, such as moving or deleting whole blocks of a 
program, and making global changes, are discussed in section 2.16. As soon as you 
begin to feel at home in True BASIC you should start to work through these features 
as they will make your programming much more efficient and enjoyable. 


1.5. Handling Program Files on Diskettes 


As we have seen, a program may be saved on the diskette in drive B with the command 
SAVE B:Name 


The entity in which it is saved is called a file. The filename may be up to eight characters 
long, with an extension of up to three characters. The following characters may be used 
for filenames and extensions: 


" the letters of the alphabet: 

* the digits 0 to 9: 

" the following special characters: !@#$%&()—__{}’ 

Note that the space is not a valid character. If an extension is used it must be added after 
the filename and separated from it with a full-stop, e.g. 

Name. Ext 


Lowercase characters are automatically translated into uppercase. If you do not specify 
an extension, [rue BASIC assumes ‘“‘.. TRU” for an extension. If you specifically do not 
want an extension, type a full-stop after the filename, e.g. 


SAVE B:NoExt. 
OLD B:NoExt. 


If you try to save a program on a diskette under a filename which already exists, the 
following message appears: 


File already exists. 
Do you want to overwrite it? 
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The response “Y”’ in upper- or lowercase will cause the previous contents to be lost and 


replaced by the current program. The response “‘N”’ will protect the diskette file from 
being overwritten. 


To replace an existing diskette file with the current program in the editing window, one 
usually uses the REPLACE command: 


REPLACE B:Name 


The previous contents of Name is irretrievably lost, as in the case of SAVE. If you use 
REPLACE or SAVE without a filename, True BASIC assumes the name of the current 
program. 


The UNSAVE command will delete the named file irrevocably from the diskette. 


We have already seen the OLD command, which calls up a file from the diskette into the 
editing window. Note that OLD will delete the current contents of the editing window 


before loading the required program. However, the copy of the file on the diskette 
remains intact. 


NB: When entering (or editing) a long program (i.e. more than about 20 lines) it is wise to 
SAVE or REPLACE it after every 20 lines or so. This way your work is saved on the diskette 
In case of power failure, or even a voltage drop, which may cause your computer to 


“hang up”’. 

NB: Itis wise to make frequent" backup" copies of all your important programs on a separate 
backup diskette to guard against diskette failure, damage or loss. There are at least two 
ways of doing this. Once you have saved the current program on the “master’’ diskette 
(1.e. your usual working diskette), remove the master diskette from drive B, and insert 
the backup diskette, remembering to lock the drive. Then use SAVE or REPLACE to 
make a copy of the current program on the backup diskette. Alternatively, you can 
make a backup copy of a file as follows: call it up from the master diskette with OLD, 
replace the master diskette with the backup diskette, and use SAVE. 


(V5: NEVER touch the diskette in a drive when the red drive light is on. ALWAYS wait for 
the red light to go off before removing the diskette. Removing the diskette while the light 


is on is like removing a record from a gramaphone turntable while the needle is still in 
the groove! You can corrupt diskette files in this way. 


1.6. True BASIC Demonstration Programs 


There are a number of demonstration programs on the True BASIC diskette. Use the 
FILES command to list them in the history window (use PgUp and PgDn to scroll the 
window if necessary), OLD to call them up into the editing window, and F9 to run them. 
Listing files often clutters up the history window, and new commands must be issued on 
the command line, which is the last line of the history window. Use End to get to the end 


of the history window. 
summary 


* You can get into True BASIC with HELLO, or HELLO filename, which gets into True 
BASIC, runs the program filename, and returns to the system. 
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* A program is a set of statements for solving a particular problem. 

* Programs are entered in the editing window. 

* Commands are entered on the last line of the history window. 

* A program may be saved as a file on a diskette, and subsequently loaded back into 


the editing window. 
* An up-to-date backup diskette of all important files should be kept at all times. 


* Some useful True BASIC commands are summarized below. These must all be typed 


in the command line of the history window, and followed by Return. They may all be 
abbreviated down to their first three letters. A complete description of all the 
commands is given in Appendix B. 


BYE Gets out of True BASIC. 

ECHO Echoes screen output to the printer. 

ECHO OFF Turns off the echo. 

ECHO TO filename Echoes screen output to a file. 

ENTER B: Switches to drive B. ENTER can also be used to change 
directories. The command CD has the same effect. 

FILES Displays names of True BASIC files on diskette in drive A. 

FILES >> Echoes FILES listing on the printer. 

FILES B:,LEN Displays names and lengths (in bytes) of True BASIC files 
on diskette in drive B. 

EIEES) ** Displays names of all files (IBM PCs and compatibles only) 
in the default drive. 

HELP (or F10) General explanation of HELP. 

HELP Topics Gives the list of topics for which HELP is available. 

LIST Prints current program on printer without headings or page 
numbers. 

NEW Deletes current program from editing window. 


NEW filename 
OLD filename 
RENAME newname 


RENAME old, new 


Clears window and names new current program. 

Calls up copy of program from diskette. 

Changes current program name, but doesn’t affect any files 
on diskette. 

Changes name of saved diskette file from old to new, but 
does not change current program name. 


REPLACE Saves current program under same name on disk. 
SAVE 

REPLACE filename Saves current program under name filename on 
SAVE filename disk, overwriting existing file if necessary. 

RUN Runs current program, 

FQ 

RUN >> Runs current program, echoing output to printer. 


RUN >> filename 
SPLIT 


SPLIT n 


Runs current program, echoing output to file. 

Turns display describing meanings of function keys on and 
off. 

Divides screen between editing and history windows at line 
n (IBM PC and compatibles only). 
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UNSAVE filename Deletes file from diskette. 


* Apart from cursor movements and editing, the following key combinations are 
useful: 


Ctrl-Alt-Del Reboots system. 

Ctrl-Break Stops execution of program. 

Ctrl-Scroll Lock 

Ctrl-NumLock Suspends execution. Press any key to continue. 
EXERCISES 


1.1 Write a True BASIC program to compute and print the sum, difference, product 
and quotient of two numbers A and B (supplied by you). The symbols for 
multiplication and division are the asterisk (‘‘*’’) and forward slash (‘‘/’’) 
respectively. Use this example to discover how True BASIC reacts to being asked 
to divide by zero. 

1.2 The energy stored on a condenser is CV7/2, where C is the capacitance and V is 
the potential difference. Write a program to compute the energy for some sample 
values of C and V. 


Solutions to most exercises are given in Appendix G. 
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We now begin to look in detail at how to write True BASIC programs to solve particular 
problems. There are two essential requirements for successfully mastering this art: 


I. The exact rules for coding instructions must be learnt; 
2. A logical plan for solving the problem must be developed. 


This chapter is devoted mainly to the first requirement: learning some coding rules. 
(Appendix A has a “‘quick reference”’ to all True BASIC statements.) Once these are 
mastered we can go on to more interesting problems. 


2.1. Compound Interest Again 


In Chapter One you ran the program ‘‘MUNNY” to compute compound interest: 
LET BALANCE = 1000 

LET RATE = 0.09 

LET INTEREST = RATE * BALANCE 

LET BALANCE = BALANCE + INTEREST 

PRINT BALANCE 

END 


We will now discuss exactly what each line in the program means. When you enter a 
program, the program lines are stored in part of the computer’s “random access 
memory’ (RAM). When the program is executed, a different part of this memory is 
used to store the numbers that are generated by the program. This part of the memory 
may be thought of as a bank of boxes, or memory cells, or memory locations, each of 
which can hold only one number at a time. These memory locations are referred to by 
symbolic names in the program statements. So the True BASIC statement 


LET BALANCE = 1000 


means “‘put the number 1000 into the memory location named BALANCE”’. Since the 
numbers in the memory locations may be changed by the program, the names of the 
locations are called “‘variables’’. The statements in our compound interest program can 
now be interpreted as follows: 


1. Put the number 1000 into memory location BALANCE 

2. Put the number 0.09 into memory location RATE 

3. Multiply the contents of RATE by the contents of BALANCE and store the answer in 
INTEREST 


4. Add the contents of BALANCE to the contents of INTEREST and store the answer in 
BALANCE 
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* Print the contents of BALANCE 


* Stop. 

When the program is executed, all the memory locations are initially set to zero by True 
BASIC (some versions of BASIC do not do this). The program statements are then 
executed in order from the top down. After execution, a snapshot of the memory will 


show the contents of the variables used as follows: 


BALANCE :_ +600/1090 


INTEREST : 90 


RATE ; 0.09 





Note that the original contents of BALANCE (1000) is lost. 


Exercises 


1. Run the program as it stands. 
2. Change the first line to read 


LET BALANCE = 2000 
and make sure you understand the answer when you re-run the program. 
3. Leave out the line 


LET BALANCE = BALANCE + INTEREST 


and re-run. Can you explain the answer? 
4. Rewrite the program so that the original contents of BALANCE is not lost. 


A number of questions immediately arise, for example: 


* What names may be used for memory locations? 

* How can numbers be represented? 

* What happens if a statement won’t fit into one line? 
* How can we organize the output more neatly? 


These questions, and many more, will be answered in the following sections. 


2.2. Program Format 


This section covers the general physical layout of a True BASIC program. 


Program Lines 


Every Irue BASIC statement starts with a keyword. Keywords used so far are LET, 
INPUT, PRINT and END. There are two kinds of statements: simple statements, which 
occupy only one line, and control structures, which may take up many lines. 
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Spaces in lines may be used to improve the readability of a program (spaces do not take 
up more storage, or use more computer time, as they do in some other versions of 
BASIC), and blank lines may be used to separate logical sections of a program. 
However, spaces may not appear in the middle of keywords (e.g. IN PUT is not 
allowed), and a keyword must always be followed and preceded by at least one space. 
SO 

LETX = 1 

is not allowed, but 

LET X= 1 


is finé. The difference between upper- and lowercase is ignored, except within string 
constants, which we will come to later in the chapter. 


Long Lines 


If a statement is too long to fit on the screen, don’t worry: just go on typing! The editor 
will move the rest of the program to the left as you type. Remember not to press Return 
until the line is logically finished, no matter how long it is (in fact, it can be up to 32767 
characters long). 


The END and STOP Statements 


Every program must have exactly one END statement, which for the time being must be 
the last statement in the program. When END is executed, the program stops. There is 
also a STOP statement, which can be used to stop a program at any point. However, it 
1s not generally recommended, since the best place to stop is at the end! 


Comments 


You may add comments to a program in two ways. Anything following an exclamation 
mark is ignored, and so is anything on a line which starts with the keyword REM. You 
may not use REMARK instead of REM, as in other versions of BASIC. E.g. 


REM rhubarbrhubarbrhubarb 
| Youcanwritewhateveryoulikehere ... 
Cet aS 7 |... Or here 


The compound interest program could be made clearer with comments as follows: 
REM Compound Interest 


LET BALANCE 1000 |! Opening balance 
LET RATE = 0.09 | Interest rate 
LET INTEREST = RATE * BALANCE 

LET BALANCE = BALANCE + INTEREST | New balance 
PRINT BALANCE 

END 
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You should develop the habit of using comments wherever possible to make the logic 
of your programs clearer fo anyone else reading them. You will also find them helpful 
yourself, because after a month or so you will have forgotten how a particular program 
worked. 


Line Numbers 

If you have had some experience with another version of BASIC already, you will have 
been immediately struck by the total absence of line numbers! This is because the 
notorious GOTO statement is no longer necessary in True BASIC (and should in fact 
never be used). Line numbers were also needed in the bad old days in order to edit a 
program, but True BASIC’s screen editor enables you to edit very easily without line 
numbers. However, line numbers are occasionally useful for reference, and for certain 
types of editing. 

In True BASIC, either all or none of the lines must be numbered. Line numbers can be 
typed immediately after the line tag, and must be entered in the right order. The DO 
NUM and DO UNNUM commands may be used to insert line numbers into all the lines of 
a program, or to remove them. DO RENUM renumbers the lines (see Appendix B for 
more details). 


Numbered lines may also be entered directly from the command line, in which case they 
are automatically inserted at the correct place in the editing window. This can give rise 
to a curious error. Suppose you forget to enter the RUN command to run the program 
to add two numbers in Chapter One, and simply enter the data in the command line, so 
that it looks like this: 


Ok. 2, 3 


The program will not run. Instead, the line 
2,3 


will mysteriously appear at the end of the program in the editing window, because True 
BASIC thinks you have tried to enter a numbered line from the command line. 


A numbered line may be deleted from the command line by typing the line number 
followed immediately by Return. 


2.3. Numeric Constants 


Numeric constant is the technical term that covers any number used as data in a 
program. A numeric constant may be expressed with or without a sign, and with or 
without a decimal point (not a comma). If it has a decimal point it is called a fixed point 
constant. [he following are all valid numeric constants: 


0 

1.0 
—12345.6789 
+0.00023 
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A numeric constant may also be expressed in floating point notation as a number with 
two parts: the mantissa, which may have a decimal point, and the exponent, which must 
be an integer (signed or unsigned). Mantissa and exponent must be separated by the 
letter “e’’. The mantissa is multiplied by the power of 10 indicated by the exponent. E.g. 


2.0e2 ( = 200 ) 

+2e2 ( = 200 ) 
4.12e+2 (= 412 ) 
—7.321e—4 ( = —0.0007321 ) 


The largest and smallest constants allowed vary with computers, although True BASIC 
will process numbers in the range 1e—99 to 1e99 on any computer. The special built-in 
functions MAXNUM and EPS (see Appendix C) may be used to find these values on your 
computer. On an IBM PC the largest positive number is 1.79769e+308, while the 
smallest positive number is 5.56268e—308. Numbers are represented with an accuracy 
of about 14 figures. 


2.4. Variables 


A variable is the symbolic name used to represent a memory location. It is so named 
because the value can be changed by a program. In True BASIC, variable names may 
contain letters, digits, and the underscore character (““__’’). They may be up to 31 
characters long, but must start with a letter. True BASIC does not distinguish between 
upper- and lowercase letters in a variable name. 


Six of the True BASIC keywords (ELSE, ELSEIF, IF, NOT, PRINT and REM) are 
“reserved words”’, and may not be used as variable names. There are 14 other reserved 
words, listed in Appendix E. A reserved word may however be embedded in a variable 
name. Below are some examples of valid and invalid variable names. 


Valid variable name Invalid variable name (why?) 
Xx $5 

R2D2 | HP41—C 

AMA104W REM 

endofthemonth 2a 

OPRINT 


To promote good “‘programming style’, it is suggested that every variable used in a 
program be described in a comment line, at the start of the program, in alphabetical 


order. Many of the examples in this book follow this practice, although not always, in 
order to save paper. 


2.9. Vertical Motion under Gravity 


Using simple dynamical laws one can show that if a stone 1s projected vertically upward 
with an initial speed u, its vertical displacement s after a time ¢ has elapsed 1s given by 
the formula 


s= ut — 0.5g¢, 
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where g = 9.8 m/s*, the acceleration due to gravity. Air resistance has been ignored (the 
effect of air resistance is discussed in Chapter 15). We would like to compute s, given 
u and t. Notice that we are not concerned here with how to derive the formula, but how 
to compute its value. The logical preparation of the problem is very simple: 


1. Get values of g, u and ¢ into the computer 

2. Compute the value of s according to the formula 
3. Print the value of s 

4. Stop. 


The program Is as follows: 
|! VERTICAL MOTION UNDER GRAVITY 


! DESCRIPTION OF VARIABLES: 
1G: ACCELERATION DUE TO GRAVITY 
1S : DISPLACEMENT IN METRES 
1 T : TIME IN SECONDS 
|! U : INITIAL VELOCITY IN METRES/SECOND 


PRINT “TIME”, “DISPLACEMENT” 


LET G = 9.8 

-ET U = 60 

LET T = 6 

LET. SO = U*T—G/2*T* 2 
PRINT 

PRINT T, S 

END 


Run this example as an exercise. It is discussed further in Ex. 2.6 at the end of the 
chapter. 


2.6. Programming Style 


Programs that are written any old how, while they may do what is required, can be 
difficult to follow when read again a month or two later. Throughout this book, 
therefore, attention has been paid to what is called programming style, by which is 
meant an emphasis on neat and clear physical and logical layout of programs. 
Guidelines for good style are laid out in the Epilogue. 


2./. Arithmetic Expressions 


An arithmetic expression is a formula combining constants, variables and functions, 
using arithmetic operators. It specifies a rule for computing a value. 


Arithmetic Operators 


There are five arithmetic operators, as follows: 
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Operator Meaning Example 
+ Addition A + 69 
— Subtraction X—Y 
or negation =—— 
* Multiplication 2* A 
Division B / DELTA 
: Exponentiation X*3 (=X*X*X) 


In addition, parentheses (brackets) may be used to control the order of evaluation (see 
below) 


Operators may not be juxtaposed. A * — B is therefore not allowed. Write A * (— B) 
instead. 

A* B with a non-integral exponent B is defined in the usual way as Exp( Log( A) * B ). 
This will cause an error if A is negative. 0 * 0 is defined to be 1. (See Chapter Four for 
the built-in functions Exp and Log.) 

The precision with which expressions are computed varies from machine to machine. 
However, True BASIC computes expressions to at least 10 digits accuracy on all 
computers. 


It is suggested that spaces be typed on either side of an operator, to make programs 
more readable. This is done throughout this book. 


Precedence of Operators 


Since an expression may contain many operators, it is necessary to know in what order 
the computer evaluates operations. The order of precedence is as follows: 
Order Operation 


Ist Parentheses 

2nd Exponentiation 

3rd Multiplication and division 

4th Addition, subtraction and negation 


When operators with the same precedence occur in the same expression, an ambiguity 
could arise. For example, does A/B * 3 mean A/ (B * 3) or (A/ B) * 3? To resolve this, 
operations with the same precedence are always evaluated from left to right. So this 
expression is in fact evaluated as (A / B) * 3. 


2.8. The LET Statement 


This statement enables you to assign a value to a variable, usually after computing the 


value of an expression. It is technically called an assignment statement. Its general form 
1S 


LET var = expr 
Or 
LET varl, var2, ... = expr 


where var, varl, etc., stand for any variable, and expr stands for any expression. The 
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ellipsis (...) means you can have as many items as you like in the line. Since every True 
BASIC statement must begin with a keyword, the LET is mandatory by default (unlike 
in most other versions of BASIC). The expression on the right 1s first evaluated, and 
then assigned to each variable in the list, from left to right. E.g. 


LET X =A+B 
LET X, Y, Z = 1 
The equal sign does not have the same meaning as in mathematics, and should be read 


as “become”. So the first statement above should be read as 
“Let X become A plus B”’ 


or more literally 
“Let the contents of X become the contents of A plus the contents of B 


Examples 

The formulae 

F = GME/r, 

c= V(a? + b*)/(2a), 

A = P(1 + 7/100)” 

may be translated into the following True BASIC statements: 
LET F=G*M*E/R% 2 

LETC =(A*2+B%°2)°05/ (2 * A) 

LET A =P*(1+R/100)°*N 


2.9. The PRINT Statement 


To help you discover some of the rules for PRINT, call up the compound interest 
program “MUNNY” (discussed at the beginning of the chapter) and carry out the 
following experiments. 

Replace the PRINT statement with 

PRINT INTEREST, BALANCE 

and see what happens when you run the program. Then try 

PRINT INTEREST; BALANCE 

to see what difference the semi-colon makes. Then try two separate PRINT statements, 


as follows: 


PRINT INTEREST, 
PRINT BALANCE 


Then try 
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PRINT “Interest:”; INTEREST, "New balance:”; BALANCE 
Then see if the next two lines make any difference: 


PRINT “Interest:”; INTEREST 
PRINT “New balance:”: BALANCE 


Next try three lines: 


PRINT INTEREST 
PRINT 
PRINT BALANCE 


Finally try 
PRINT TAB( 5 ); BALANCE 


Basic Rules for PRINT 


The PRINT statement may include messages enclosed in double quotes (these are called 
strings), and/or variable names, and/or expressions (all of these will be referred to as 
items). For the purposes of PRINT, the screen has a margin, or maximum screen width 
(S80 columns on the IBM PC). The screen is also divided into five print zones, each 16 
columns wide. A comma after an item means that the next item will be printed in the 
next print zone on the screen, and on the same line (if there is room), even if its PRINT 
statement 1s further down in the program. In other words, a comma at the end of a 
PRINT statement leaves the cursor “hanging” at that position waiting for the next 
PRINT. If the last print zone is full, the cursor moves to the start of the next line. You 
may have several commas in a row to skip past print zones, e.g. 


PRINT 5.4: 
You can change the width of the print zones and adjust the margin with the statements 


SET ZONEWIDTH expr 

SET MARGIN expr 

where expr is any numeric expression with a meaningful value. The changes take effect 
Immediately. You can find out the current widths with the statements 


ASK ZONEWIDTH var 
ASK MARGIN var 


where var is a variable. These statements may also be issued as commands on the 
command line of the history window (see section 2.17). 


A semi-colon after an item in a PRINT statement holds the cursor at that position, 1.e. 
it does not move to the next print zone. 


The absence of a comma or semi-colon after the last item in a PRINT statement means 
that the next item to be printed will be printed on a new line. An empty PRINT statement 
has the effect of printing a blank line, if the preceding PRINT does not have a comma or 
semi-colon after its last item. 


Positive numbers are printed with a leading space. Negative numbers have a leading 
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minus sign. All numbers have a trailing space, even if printed with a semi-colon. So a 
positive number in the second print zone will actually start in column 18. 


If a number is an integer with 12 or fewer digits, it is printed in full. If the number can 
be represented with a decimal point and six or fewer significant digits, it will be. 
Otherwise it will be printed in standard scientific notation (floating point), 1.e. as 
‘‘~—d.ddddde+dd”’, where each ‘‘d”’ stands for a digit, ““—”’ stands for either a space or 
a minus sign, and ‘“‘+”’ stands for either a plus or minus sign. The leading digit will be 
between 1 and 9. Numbers are rounded to six significant digits, if necessary, before 
printing. If you want greater accuracy, use the PRINT USING statement (Chapter Eight). 
PRINT USING also enables you to get neater output, like numbers which are right- 
justified. 

The TAB function in a PRINT statement moves the cursor to the position on the print line 
indicated by its argument. E.g. 

PRINT TAB( 23 ); 


moves the cursor to column 23 of the current output line. If the cursor is already past 
that position, it moves to the next print zone. If a semi-colon follows the TAB, the cursor 
remains at that position. If a comma follows, the cursor moves to the next print zone. 


The two-dimensional TAB gives you more control over the cursor: 
PRINT TAB( row, column ): 
Rows are numbered from the top of the screen, starting at 1. The first such TAB clears 


the screen, which “‘freezes”’ until you press (almost) any key. You can use this statement 
to put the cursor anywhere on the screen. 


It is good programming style to type spaces after all commas and semi-colons In PRINT 
statements. 


Printing Output on the Printer 


There are a number ways of doing this. The easiest is to type “>>"’ after the RUN 
command to echo output on the printer (make sure that the printer is connected). 


You can also print the contents of the screen at any time by pressing Shift-PrtSc. The 
problem with this is that you may get both editing and history windows in the printout, 
which is a bit messy. There are at least two other ways, which are more subtle. Enter 
the following program, and run it: 


CLEAR 

PRINT "This is a clean screen” 

END 

You should have a beautiful clean screen, with no cursor, and no history or editing 
windows. You have basically got into a third window, or full-screen mode (see Chapter 
12). If you press Shift-PrtSc now, the screen will be printed. To get the history and 
editing windows back, press any other key. 


The second way is to start your program with the statement 
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OPEN #1: PRINTER 
and to use PRINT #1: whenever you want to print on the printer, e.g. 


| Printing to printer and screen: connect the printer first! 
OPEN #1: PRINTER 

PRINT “This will be on the screen” 

PRINT #1:"But this will be on the printer’ 

END 


Variables can be printed like this too: 
PRINT #1: X, Y; TAB( 43 );"The answer is:”; Z 
There is more about this in Chapter Eight. 


2.10. The INPUT Statement 


In the compound interest program ‘“MUNNY’” the data for the program was supplied 
with two LET statements: 


LET BALANCE = 1000 
LET RATE = 0.09 


This is a rather inflexible way of supplying data, since to run the program for different 
balances or interest rates you would have to change these statements, and there may be 
many such assignment statements in a more complicated program. The INPUT state- 
ment, however, which we saw in Chapter One, allows you to supply the data while the 
program is executing, rather than before execution, as in the case of the assignment 
statement. One form of the INPUT statement is 


INPUT varl, var2, ... 


Change the ‘““MUNNY” program so that first two LET statements are replaced by the 
single statement 


INPUT BALANCE, RATE 


When you run the program, the computer prints a question mark on the screen in the 
history window and waits for you to type the two numbers, which must be separated by 
a comma, after which you must press Return. The line on the screen will look like this: 


? 1000, 0.09 


You can enter the numbers over two (or more lines) as long as you end each line with 
a comma to show that there is more data coming: 


? 1000, 
? 0.09 


If you make a mistake with the input, like typing a letter instead of a number, True 
BASIC does not “‘crash”’ the program, but asks you to retype the errant data. 
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INPUT with a Prompt 
Change the “‘MUNNY” program to look like this: 


INPUT PROMPT "Old balance: ”: BALANCE 

INPUT PROMPT "Interest rate: ”: RATE 

LET INTEREST = RATE * BALANCE 

LET BALANCE = BALANCE + INTEREST 

PRINT "The new balance is”; BALANCE 

END 

Instead of a question mark, the prompts “Old balance: ” and “Interest rate: ” will 
appear on the screen. Each time, the computer will wait for your response. The general 
form is 


INPUT PROMPT "Message": varl, vard, ... 


INPUT with a Trailing Comma 


If the last variable in an INPUT statement is followed by a comma, you may enter more 
data in response to the prompt than is needed. The leftover data will be kept and read 


by subsequent INPUT statements. This is particularly useful if you want to avoid getting 
the output cluttered up with input prompts, e.g. 


FOR | =1TO 5 
INPUT X, 
PRINT X * 2: 

NEXT | 

END 

Ok. run 

? 1,.2,°3, 4, 5 


1 4 9 16 24 


2.11. The FOR-NEXT Statement 


Square-rooting with Newton 


The square root X of any positive number A may be found using only the arithmetic 
operations of addition, subtraction and division, with Newton’s method, which is 
explained more fully in Chapter 15. The structure plan of the algorithm, and the 
program with sample output for A = 2, is as follows: 


1. Input A 

2. Initialize X to 1 

3. Repeat 6 times (say) 
3.1. Replace X by (X¥ + A/ X)/2 
3.2. Print X 

4, Stop. 


1 SQUARE-ROOTING WITH NEWTON 


CLEAR 
INPUT PROMPT “Number to be square-rooted: ”: A 
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LET X = 1 


FOR | = 1 
LET X = 

PRINT X 

NEXT | 


END 


TO 6 
(X + A/X)/2 


Output: 


Number to be square-rooted: 2 
15 

1.41667 

1.41422 

1.41421 

1.41421 

1.41421 


The values of X “‘converge”’ to a limit, which is the square root of A. Most computers 
and calculators use a similar method internally to compute square roots and other 
built-in mathematical functions (see Chapter Four). 


The new statement used here is the FOR-NEXT, which is one of the most powerful 


statements in any programming language. It is discussed more fully in Chapter Six. Its 
simplest form is: 


FOR/ = JTO K 


NEXT / 


where / is any variable and J and K may be constants, variables, or expressions. All the 
statements between FOR and NEXT will be repeatedly executed. The numerical values 
of J and K determine how many repeats are made. On the first loop, J is given the value 
of J, and is then increased by 1 at the end of each loop. Looping stops once J has reached 
the value of K, and execution proceeds with the statement after NEXT. J will have the 
value K+1 after completion of the loop. 


The next program is a variation on the compound interest problem. Suppose we have 
to service four different savings accounts, with balances of, say, $1000, $500, $758 and 
$12750 respectively. We want to compute the new balance in each of them after 9% 
interest has been compounded. Try the following program out. The results may look 
slightly different to what you have seen so far. 


CLEAR 
LET RATE = 0.09 


FOR | = 1 TO 4 
ASK CURSOR LINE, COL 
INPUT PROMPT "Old balance: ”: OLDBAL 
LET NEWBAL = OLDBAL + RATE * OLDBAL 
PRINT TAB( LINE, 30 ); "New balance:’; NEWBAL 
NEXT | 
END 
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The ASK CURSOR statement puts the current line and column number of the cursor into 
the variables LINE and COL, where the top line (row) on the screen is line 1, and the 
leftmost column is column 1. The TAB function positions the cursor in the row according 
to the value of the variable LINE. Since the value of LINE is set by the ASK CURSOR 
statement, the effect is to keep the cursor on the same line as the input prompt, with the 
result that the output is printed on the same line. The value of COL is not actually used 
in this example, but the syntax of the ASK CURSOR statement requires a variable there. 
To find out the maximum number of lines and columns on your screen, you can use the 
statement 


ASK MAX CURSOR LINE, COL 

Instead of the TAB function you can use the SET CURSOR statement to position the 
cursor: 

SET CURSOR LINE, COL 

You can switch the cursor off or on with 


SET CURSOR “off” 'UPPER or lowercase or miXEd 
SET CURSOR "on" 


or find out whether it is on or off with 

ASK CURSOR var$ 

where var$ is a string variable (see section 2.15). 

Note that good programming style requires that statements inside a FOR-NEXT loop be 
indented to the right a few columns. If you forget to indent, or get the margin looking 
somewhat ragged, the DO FORMAT command will indent the program neatly for you. 


You can also find out in section 2.16 how to shift whole blocks of a program to the left 
or right. 


Differential Interest Rates 


Most banks and building societies offer differential interest rates. Suppose in the above 
example that the rate is only 9% for balances less than $5000, but 12% otherwise. We 
can easily amend the program to allow for this by deleting the second statement (LET 
RATE = 0.09) and Inserting a new statement after the INPUT statement, as follows: 


INPUT PROMPT "Old balance: ": OLDBAL 
IF OLDBAL < 5000 THEN LET RATE = 0.09 ELSE LET RATE = 0.12 
LET NEWBAL = OLDBAL + RATE * OLDBAL 


Try this out to verify that it works. We will discuss the IF-THEN-c:LSE statement more 
fully below. 


2.12. Final Course Mark 


The final course mark of students attending a certain university course is calculated as 
follows. Two examination papers are written at the end of the course. The final mark 
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is either the average of the two written papers, or the average of the two papers and the 
class record mark (all weighted equally), whichever is the higher. The following 
program computes and prints out each student’s final mark, with the result PASS or FAIL 
(50% being the pass mark). 


100 ! FINAL MARK FOR COURSE BASED ON CLASS RECORD AND EXAMS 
110 


120 ! CRM ; CLASS RECORD MARK 

130 ! EXMAVG : AVERAGE OF TWO EXAM PAPERS 
140 | FIN ; FINAL MARK FOR COURSE 

150 |! P1 ; MARK FOR PAPER 1 

160 ! P2 ; MARK FOR PAPER 2 

170 ! oTU : STUDENT COUNTER 

180 

190 CLEAR 

200 PRINT "CLASS RECORD”, "EXAM AVERAGE’, "FINAL MARK” 
210 PRINT 

220 


230 FOR STU = 1 TO 3 

240 READ CRM, Pi, P2 

250 LET EXMAVG = (P1 + P2) / 2 

260 IF EXMAVG > CRM THEN LET FIN = EXMAVG ELSE LET FIN =... 


.. (P1 + P2 + CRM) /3 
270 PRINT CRM, EXMAVG, FIN, 


280 IF FIN >= 50 THEN PRINT ”"PASS” ELSE PRINT “FAIL” 
290 NEXT STU 

300 

320 DATA 40, 60, 43 

330 DATA 60, 45, 43 

340 DATA 13, 98, 47 

350 END 


Note that line numbers have been used for ease of reference. Line 260 is printed on two 
lines because it 1s too long to fit on the printed page; it should be one line in your editing 
window. Each student’s class record mark and two examination marks are entered ina 
DATA statement whence they get into memory by means of the READ statement when 
the program is run, instead of by means of INPUT. The READ-DATA statements are 
discussed more fully below. They are extremely useful when developing a program that 
requires a fair amount of test data, since the data does not have to be entered all over 
again each time the program is run. 


Kun the program as it stands. Note that the trailing comma in line 270 ensures that the 
comment PASS or FAIL is printed on the same line as the marks. 


2.13. Deciding with IF-THEN-ELSE 


In the above example we see a situation where the computer must make decisions: 
whether or not to include the class record, and whether to pass or fail the student. The 
programmer cannot be sure which of these possibilities will occur when writing the 
program, so it must be designed to allow for all of them. We need a conditional branch 
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instruction, which is another of the most powerful facilities in any programming 
language. Its simplest form in True BASIC 1s 


IF condition THEN si ELSE s2 


where condition is a logical expression having a truth value of either true or false, and 
sl and s2 are any True BASIC statements. If the condition is true, s/ is executed (and 
not s2), otherwise s2 is executed (and not s/). The ELSE part of the statement is 
optional, and may be left out. Execution continues in the normal sequential way with 
the next statement after the IF. 


The condition may be formed from numeric expressions with the relational operators 
(<, <=, etc.), and from logical expressions with the logical operators (NOT, AND, OR). 
These are all discussed fully in Chapter Five. 


For example, suppose we wanted to print out the class (grade) of each student’s final 
mark in the above program. We could replace line 280 by the following lines: 


272 IF FIN >= 75 THEN PRINT “I” 

274. IF FIN >= 70 AND FIN < 75 THEN PRINT "Il+” 
276 IF FIN >= 60 AND FIN < 70 THEN PRINT "Il—” 
278 IF FIN >= 50 AND FIN “Ill” 

280 IF FIN <50 THEN PRINT "FAIL" 


The PRINT in each statement is executed only if both conditions are true. The 
temptation is to write something like 


274 IF FIN >= 70 AND < 75 THEN PRINT "II+” 


since this is how we tend to say it in English. But this is wrong since AND must join two 
logical expressions, and ‘‘< 75”’ is not a logical expression (it doesn’t have a truth value). 


2.14. The READ-DATA Statements 


This is the third way of assigning values to variables (along with LET and INPUT). It is 
less flexible than INPUT but is better to use when large volumes of data are involved, or 
when the programmer is not sure how many numbers will appear in each DATA 
statement (the DATA part may be added by someone other than the person writing the 
main part of the program). The general form is 


READ varl, var2, ... 
DATA consl, cons2, ... 


When the program starts, the ‘data pointer” points to the first item in the first DATA 
statement, which is read into the first variable mentioned in the first READ statement. 
Each subsequent READ statement reads another item from the DATA statements, in 
order, as if all the DATA statements were in one huge DATA statement. The data pointer 
moves along one item at a time, no matter how many READ statements may have been 
involved. E.g¢. 


READ A, B 
READ C, D 
PRINT A; B; C; D 
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DATA 7, 13, —5 |! here are some data ... 

DATA 17 |... here is the rest 

END 

Ok. run 

7 13-5 17 


If there are not enough DATA items to satisfy the READs, an error occurs. There are two 
statements (MORE DATA and END DATA) which can be used to detect if there is any more 
data before an attempt is made to read it. These are discussed in Chapter Six. 


The DATA statements may be placed anywhere in the program before END. It is good 
practice to group them all together. 


The RESTORE statement “‘rewinds” the spool of data, and sets the data pointer back to 
the first data item in the program. Its form is simply 
RESTORE 


There is more about DATA in the next section. 


2.15. Strings 


A glaring problem with the student mark program above is that the students’ names are 
not printed out! To remedy this, we introduce the concept of a string variable. Make the 
following changes to the program in section 2.12. Add line 145: 

145 | NAME$ — : STUDENT'S NAME 

Then change the following lines: 

200 PRINT "NAME", "CLASS RECORD”, "EXAM AVERAGE", "FINAL MARK” 

240 READ NAMES, CRM, P1, P2 

270 PRINT NAMES, CRM, EXMAVG, FIN, 

320 DATA ABLE E.R., 40, 60, 43 


330 DATA BOTHA B.J., 60, 45, 43 
340 DATA SMITH Z.Z., 13, 98, 47 


If you run the amended program you should get output like this: 


NAME CLASS RECORD EXAM AVERAGE — FINAL MARK 

ABLE E.R. 40 219 91.5 PASS 
BOTHA BJ. 60 44 49.3333 FAIL 
SMITH Z.Z. 13 72.9 72.5 PASS 


string Constants 


There are actually two fundamentally different types of constants and variables in True 
BASIC: numeric and string. A string constant must be enclosed in double quote (” ") 
marks. True BASIC distinguishes between lower- and uppercase letters only in the case 
of string constants. So “BASIC” is not the same “‘Basic’’. A string constant may be as 
long as 32000 characters (longer on some machines, e.g., 65528 on the IBM PC). 


The null (empty) string has no characters in it: "". However, the space (blank) is 
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different to the null string, and spaces in string constants are retained: ” ”. A double 
quote mark may be included in a string constant by typing it twice: 


"He said, ’’Follow me.””" 


String Variables 


A string variable may only store a string constant, in the same way as a numeric variable 
stores a numeric constant. The rules for string variable names are the same as for 
numeric variables, except that the string variable name must end with a dollar (‘‘$’’) 
symbol. This symbol counts as one of the 31 allowable characters in the name. 


String values may be assigned to string variables with LET statements: 


LET John8_32a$ = "You will know the truth,” 

LET John8__32b$ =” and the truth will make you free.” 
PRINT John8__32a$; John8__32b$ 

END 

Ok. run 

You will know the truth, and the truth will make you free. 


Note that strings are printed exactly as they are with no leading or trailing blanks. 


String values may also be assigned with INPUT and READ statements, as we saw in the 
amended student mark program above. Leading and trailing spaces are removed, 
unless the string constant is enclosed in double quotes. If you want to enter a comma in 
a string, the string must also be enclosed in double quotes. E.g. the program segment 


READ D$ 

READ D 

PRINT D; D$ 

DATA "November, 1946”, 21 
END 


will result in the output 
21 November, 1946 
but if the quotes in the DATA statement are removed, the output will be 


1946 November 


and the value 21 will be left to be read into the next numeric variable appearing in the 
next READ further down the program (which may not be what you intended!). 


If a comment character (“‘!’”) is to be read as data from a DATA statement, the string 
containing it must also be enclosed in double quotes. Numbers enclosed in double 
quotes in DATA statements, such as ‘‘1946’’, may be read as either numeric or string 
values. 


If double quotes are to be read or input, they must be repeated, and the string 
containing them must be enclosed in double quotes, e.g. 

READ V$ 

PRINT V$ 
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DATA "Pilate Said, "What is truth?” 
END 


Ok. run 
Pilate said, "What is truth?” 


To read or input the null string, it must be enclosed in double quotes (“”’). 


If null strings, or commas or double quotes in strings are going to occur frequently in 
response to INPUT statements in a program, it may be easier to use the LINE INPUT 
statement, which reads the whole line of input as a string, whatever it is. E.g. 


LINE INPUT V$ 
END 


Ok. run 
? Pilate said, "What is truth?” 


The general form is 


LINE INPUT varl$, var2$, ... 
LINE INPUT PROMPT prompt$: varl$, var2$, ... 


Consecutive lines of input are assigned to the string variables one at a time, from left to 
right. Note that the prompt in the (LINE) INPUT statement may be a string variable. 


Concatenation of Strings 


The only string operator is the ampersand (‘‘&’’), which concatenates (joins) strings. 
FE.g. the statement 


LET NUTS ="”NA” &"POLE” & "ON" 
produces the string "NAPOLEON”. 


There is more about strings in Chapter Ten. 


2.16. Advanced Editing 


In this section we discuss some of the more advanced features of the True BASIC screen 
editor. You should try out the commands and function keys described below on a test 
program, as they will increase your programming skill and enjoyment no end. To test 
the facilities that move blocks of lines around, it is suggested that you enter a dummy 
program with the integers 1, 2, 3, ... on separate lines, and nothing else. You will then 
easily be able to see what happens to the lines when you move them. 


Editing Keys 


We have already seen some of these features. Pressing Del when the cursor is on a line 
tag deletes that line, while pressing Backspace when the cursor is on a line tag joins the 
line on to the previous one. The Ins key toggles between inserting (the default mode) 
and overtyping. 
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A whole block of lines can be marked for editing as follows. Move the cursor to the line 
tag of the first line of the block you want to edit, and press F4 (the MARK) key. The line 
tag is highlighted. Now move the cursor to the line tag of the last line in the block, and 
press F4 again. All the line tags in the block are highlighted, indicating that the whole 
block is marked. The block may be unmarked by pressing F4 with the cursor on any line 
tag in the block, or by marking another block (although in this case the highlighting of 
the previous block does not disappear on some computers). 


If you press the Del key now, the entire marked block is deleted. The RESTORE key (F7) 
reinstates the deleted block. 


You can copy the block as follows. Move the cursor to the line tag below which you want 
to copy the block. Press the COPY key, F5, and a copy of the marked block will appear 
immediately below the current line. F7, which undoes the most recent editing 
operation, will delete the copy. F5 also works in the history window. If you press F5 on 
the command line, the previous entry is copied to the command line, which can then be 
edited if necessary (you still have to press Return to activate the command). F5 on any 
other line in the history window copies that line to the command line. 


A marked block can be moved, as opposed to copied, with the MOVE key (F6). 


If the cursor is on a line tag in a marked block, the entire block will move one column 
to the right (left) every time you press the > (<) key. 


The F3 key enables you to find text in the program. Suppose you want to find the word 
Name$. Move the cursor to the top of the editing window, and press F3 followed by the 
wanted word: 


Find: Name$ 


After you press Return, the cursor will move to the first occurrence of Name$ beyond 
the current line. Each time you press F3 and Return, without entering new text to find, 
the next occurrence of Name$ is found. The distinction between upper- and lowercase 
IS ignored, unless you enclose the search string in double quotes, in which case you may 
also search for parts of words. The equivalent command to F3 1s LOCATE. 


Shift-F1 and Shift-F2 are “vertical tab” keys which move the cursor up or down from 
the current line to the next line which has Jess indentation, or the next line with equal 
Indentation after an intervening blank line. 


Shift-F4 sets a ‘‘bookmark” at the current line. changing the shape of the line tag. The 
previous position of the bookmark is lost. Shift-F3 will find the bookmark. 


Pressing the ! key with the cursor on any line tag of a marked block will ‘‘comment out”’ 
the block by inserting a ‘‘!”’ at the beginning of each line in the block. Any marked lines 
which are comments will have the “‘!”” removed. If the marked block has a mixture of 
commented and uncommented lines the mixture will be reversed. 


The special editing keys are summarized in Appendix A. 


Instead of using the function Keys, you can use the COPY, LOCATE, MARK and MOVE 
commands, which are more general. They are described in Appendix B. 





FUNDAMENTALS OF TRUE BASIC 33 





Editing Commands 


The commands mentioned briefly in this section are all discussed fully in Appendix B. 
The CHANGE command lets you change all occurrences of text: 


CHANGE Name$, SurName$ 


This command is restricted to whole words or numbers unless you enclose the strings in 
double quotes, in which case the distinction between upper- and lowercase is observed. 


TRY is similar to CHANGE, except that True BASIC stops after each match is found to 
ask whether or not you want to change that particular match. 


All editing can be restricted to a particular block of lines, by marking the block, and then 
using the EDIT command. 


DO FORMAT may be used to convert all keywords to uppercase, indent control 
structures and line up comments. 


DO PAGE will print a program on the printer with page numbers headed with the time 
and date. If an optional heading is given, it is printed at the top of each page: 
DO PAGE, My First Program! 


2.1/7. Using True BASIC Statements as Commands 


Many True BASIC statements can be typed on the command line, and have immediate 
effect, e.g. 


Ok. LET X 
OK LET Y= 
Ok. PRINT X 
3 


| 
+p - 


Y 


You can therefore use the computer directly as a calculator. After a program has 
executed, all the program’s variables are still active and available for use with immediate 
statements. This is particularly useful when debugging (finding and removing errors), 
since you can use PRINT as a command to print out any of the variables. Any variables 
that you may use in this way that were not used by the program are automatically all 
initialized to 0 or **”’. See Appendix B for more details. 


2.18. Odds ’n Ends 


This section contains various items of information which may be helpful at this stage of 
your programming development. 


Representation of Information in a Computer 


The basic unit of information inside a computer is the bit: something which has only two 
possible states, usually described as ‘‘on”’ and “‘off’’. Electronically this is very easy to 
represent, as a current can be either on or off, or a magnetic field can be orientated 
either clockwise or counterclockwise. The binary digits 0 and 1 can therefore be used 
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to represent these two states mathematically (hence the term digital computer). The 
word “‘bit’’ is a contraction of “binary digit”. 

Numbers in a computer’s memory must therefore be represented in binary code, where 
each bit in a sequence stands for a successively higher power of 2. The decimal numbers 
0 to 15, for example, are coded in binary as follows: 


Decimal Binary Decimal Binary 
0 0000 8 1000 
I QQ01 9 1001 
2 0010 10 1010 
3 0011 11 1101 
0100 12 1100 
3 Q101 13 1101 
6 0110 14 1110 
7 0111 15 1111 


In the computer’s memory, bits are grouped together into words, usually of 32 bits. A 
byte is the amount of storage required for one character, and is eight bits long. Since 
each bit can be in two possible states, this gives 2°, i.e. 256, different combinations. 


Microcomputer memory size (and diskette capacity) is measured in bytes, so 64K, for 
example, means about 64000 bytes (since 1K means 1024). This chapter takes up 74142 
bytes on a diskette because it has that many characters in it. Microcomputers are 
sometimes referred to as 8- 16- or 32-bit machines. This describes the length of the units 
of information handled by their microprocessors, or ‘‘chips”. The longer these units, 
the faster the computer. 


Compilers and Interpreters 


Since the computer can only understand binary code, all instructions to it must 
ultimately be translated into this form. A compiler is a sophisticated program which 
translates your program statements (i.e. in True BASIC) into a machine readable form 
called machine code. This is collected together into a single entity, and stored in the 
memory. You may have noticed a slight delay after you press F9 before the results come 
onto the screen. This is the time taken to compile the program. If you don’t change the 
program, and run it again, it runs that much faster, because it doesn’t need to be 
recompiled. This is much more noticeable with larger programs. Compiling and 
executing are therefore two entirely different processes. When a program does not 
work, it is very important to know whether the error (or ‘“‘bug’’?) occurred during 
eee or run-time. This should be clear from the error messages generated by True 


An interpreter also translates a program into machine code, but only one line at a time, 
and then again and again as each line is repeated in a FOR-NEXT loop, say. The machine 
code is not stored each time. This has two disadvantages. Execution time 1s longer, and 
error checking is only done line by line, and not globally, as is the case with a compiler. 
Sia of BASIC tend to use interpreters, whereas True BASIC uses a 
compiler. 


There is more about errors in Chapter Seven. 
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Operating systems 


The operating system is a special program which controls the ‘whole show” while you 
are using the computer. It sits in the ‘‘system’’ tracks of the system diskette you are 
using, and is automatically loaded into memory when the computer is booted up. The 
operating system you are usin g is probably MS-DOS, which stands for Microsoft Disk 
Operating System, often simply called DOS. 


All commands typed in response to the system prompts A> or B> are commands to 
DOS. So when you type HELLO to start True BASIC, DOS searches the diskette in drive 
A for a “‘command” file called HELLO.EXE, and loads it into the RAM (random 
access memory). When you enter a program, DOS puts it into another part of the RAM, 
together with all the variables generated by the program. You therefore have indirect 
control of the RAM, as opposed to the “read only memory” (ROM). 


The ROM contains special programs, like the BIOS (Basic Input-Output System), 
which is responsible for all the built-in support of the PC’s input-output devices, such 
as the display screen and the diskette drives. 


DOS also controls all the file handling and printing facilities. 


summary 


_F 
— 


* Successful problem solving with a computer requires knowledge of the coding rules 
and a sound logical plan. 


* All True BASIC statements start with a keyword. 


o. 
7 


' Simple statements occupy only one line. Control structures occupy many lines. 


* Comments may be typed after a comment character (“!’’). They help to explain what 
IS goIng ON In a program. 


i. 
io 


* Line numbers are optional. 


Fr 
—_ 


* True BASIC has two types of constants and variables: numeric and string. 


=F 
= -o 


* Numeric expressions may be formed from numeric constants and variables with the 
tive arithmetic operators and the parentheses, which operate according to strict rules 
ot precedence. 


oF 
a am: 


* PRINT 1s used to print numbers and strings. 


oF 
v. 


Data may be entered from the keyboard while a program is running in response to an 
INPUT statement. 


a 
a 
cy 


‘ Data stored in a program in a DATA statement may be read with a READ statement. 


a 
ow 


* FOR-NEXT 1s used for repeating a set of statements. 


Pp 
_ 


* IF-THEN-ELSE enables a program to decide between alternatives. 

* The CLEAR statement enables you to get into full-screen mode. 

* String constants are strings of characters enclosed in double quotes. 
* Concatenation is the only string operation. 


* Many True BASIC statements may be used as commands (immediate statements). 


= CHAPTER 2 
EXERCISES 
2.1 Evaluate the following True BASIC expressions, given that A = 2, B = 3, 
C = 4: 
LET X =A/2* 8B ( 3, not 1/3 ) 
LET X =A/B%2 ( 2/9 ) 
LET X = (A/ B) * 2 ( 4/9 ) 
LET X =A+B* C-—4 (10) 
LET X =A*%2*B/C+3 (6) 
LET X = A * (2*B)/(C +3) (64/7) 
LETX =A*B+C (10) 
LET X =A*B°*A ( 64 ) 
LET X == 4° A ( —16 ) 


Live 


Ld 


2.4 


2.5 


Decide which of the following constants are not acceptable in True BASIC, and 


State why not: 
(a) 9.87 (b) .0 (c) 25.82 (d) 12,68 
(e) 3.57*e2 (f) 3.57e2.1 (¢) 3.57e+2 (h) 3,57e—2 


State, giving reasons, which of the following are not acceptable True BASIC 
variable names: 


(a) A2 (b) 2A (c) 99$ (d) "A" 
(e) LET (f) MIN*2 (2) A+1 (h) pay day 
(i) $MONEY (j) PI (k) r2d2! (1) final_mark 


Translate the following expressions into True BASIC expressions: 








Ww 
Po wa 
73 Ww : Ww uty 
Gee (b) pt aa (C) —  (d) x 
oi u—y 


(e) x25 (f) 0-5 (zg) yy tz (h) (x)? 
(i) 2) 


aS Pe) 


. ted 
(J) x 31 SI 


—b + (b* — 4ac)*> 


(k) = 


Translate the following into True BASIC statements: 

(a) Add 1 to the value of | and store the result in |. 

(b) Cube |, add J to this, and store the result in |. 

(c) Set G equal to the larger of the two values E and F. 
(d) IfD is greater than zero, set X equal to minus B. 


(e) Divide the sum of A and B by the product of C and D, and store the result in 
X. 
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2.6 


2.1 


2.8 


£9 
2.10 


2.11 
Bike 


This question refers to the vertical motion example in section 2.5. 


(a) Run the program as it stands. Try to work out whether the stone is moving 
up or down. 

(b) Re-run for different values of ¢t. In particular, use the program to find out 
where the stone is after 20 seconds, and interpret your results physically. 


(c) Rearrange the formula to compute when the stone returns to the ground. 


(d) Rearrange the formula to compute when the stone is at any particular 
height, i.e. calculate ¢, given u and s. Interpret your results physically. 


Try to work out the output of the following program before checking your results 
on the computer: 

READ X, Y 

READ N$, M$ 

PRINT X; Y; NS; M$ 

DATA 1.2 

DATA 3, PLONK, "JONES, 1.” 

END 


Write some lines of True BASIC which will exchange the contents of two variables 
A and B, using only one additional variable T. 
Try Ex. 2.8 without using any additional variables! 


What are the values of X and A after the following program has been executed? 
LET A = 0 


LET | = 1 
LET X = 0 
LETA=AC+ | 
LET X =X+I1/A 
LET A=A+I 
LET X = X+1/A 
LET A=A +1 
LET X = X+I1/A 
LET A=A + | 
LET X = X+I1/A 


Rewrite the program in Ex. 2.10 more economically by using a FOR-NEXT loop. 


Work out by hand the output of the following program: 


LETN =4 

LETS =0 

FOR K=1TON 

LETS =S+1/(K* K) 
NEXT K 

PRINT (6 * S) * 0.5 

END 


If you run this program for larger and larger values of N you will find that the 
Output approaches a well-known limit. 


fad 


S 


2.13 


2.14 


2.15 


2.16 
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Try to spot the syntax errors (1.e. mistakes in coding rules) 1n this program before 
running it on the computer to check your answers with the error messages 
generated by the computer: 


READ A, B 
LETC +i1=A 


B = (A + 1)(C + 2) 
LET D = (A + (B/ 2A) 
PRINT ‘THE ANSWER IS’: A:B 


END. 
A student makes a regular deposit of $20 each month into his bank account. 
Interest is compounded at the end of each month, after the deposit has been made, 
at the rate of 1.5% per month. He starts with nothing in the account. Write a 
program which prints out, under suitable headings, the interest and month end 
balance each month for two years. 
The steady-state electric current J flowing in a circuit that contains a resistance, 
capacitance and inductance in series is given by 

E 
V[R?+(2nFL - 1 )?] 

2UFC 


where E, R, L, C and F are the input voltage, resistance, inductance, capacitance 
and angular frequency respectively. Translate this formula into a True BASIC 


statement. 

Suppose Income Tax is calculated as follows: 

Taxable Income Tax Payable 

less than $10000: 10% of taxable income 

between $10000 and $20000: $1000 + 20% of amount by which taxable 
income exceeds $10000 

between $20000 and $40000: $3000 + 30% of amount by which taxable 
Income exceeds $200000 

more than $40000: $9000 + 50% of amount by which taxable 


Income exceeds $40000 
Write a program which prints out neatly the taxable income and tax payable 
for the following taxable incomes: $5000, $10000, $15000, $22000, $30000, 
$38000 and $50000. You should use a FOR-NEXT loop, and READ-DATA for 
the data. Check some of your answers by hand. 





CHAPTER 3 


PROGRAM PREPARATION 








Our examples so far have been very simple logically, since we have been concentrating 
on the technical aspects of writing True BASIC statements correctly. However, real 
problems are far more complex, and to program successfully we need to understand the 
program thoroughly, and to break it down into its most fundamental logical Stages. In 
other words, we have to develop a systematic procedure, or algorithm, for solving the 
problem. There are a number of methods which assist in this process of algorithm 
development. In this chapter we outline two: flow-charts, and structure plans (Ellis, 
1982), which have already been mentioned briefly. 


3.1. Flowcharts 


The flowchart approach is rather old-fashioned, and tends to be frowned upon in ‘“‘with 
it’’ computing circles. However, for historical interest (and in case you actually prefer 
this visual method), some examples are given here. 

Suppose we want to write a program to convert a temperature on the Fahrenheit scale 
(where water freezes and boils at 32° and 212° respectively) to the more familiar 
Centigrade (Celsius) scale. The flowchart for the problem is as follows (the symbols are 
explained below): 


(Input) 


eee STARTO Sg 
TempF 


(Compute TempC) 


TempC = 5(TempF — 32)/9 
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The main symbols used in flowcharts, and their meanings, are: 


———$—$<— a flow of logic 


Start/Stop 


Input (or assignment) of information 


Processing (e.g. calculation of formulae) 


) Header for loop structure 
Decision 


End of loop structure 
Decision (two- or three-way branch) 


Printed output 
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3.2. Quadratic Equation: Flowchart 
Every schoolchild must have solved hundreds of quadratic equations of the form 
ax’ + bx +c=0. 


The complete algorithm for finding the solution x, given a, b, and c, is flowcharted as 
follows: 


START 


a,b,c 


YES 


Solution 
indeterminate 






! No solution 


YES Complex Sal 
Roots 


YES 















x, =[—b + V(b? — dac) } / (2a) 
x2 =[—b — V(b> — 4ac) } / (2a) 


STOP 
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3.3. Newton's Method: Flowchart 


In Chapter Two we wrote a program to find square roots with Newton’s method: 


|! SQUARE-ROOTING WITH NEWTON 

CLEAR 

INPUT PROMPT “Number to be square-rooted: ": A 

LET X = 1 

FOR | = 1 

LET X = 
PRINT X 

NEXT | 

END 

There is no universally accepted way of flowcharting a FOR-NEXT loop, but one way is 

to use the elongated diamond to give the conditions under which the body of the loop 


is executed, with a small circle to mark the end of the loop, as follows: 


START 








(condition under which 
body of loop is executed) 






YES 





- DONE <6 TIMES? 


LET X= 
(LX +- Al | X) / 2 


(body of loop) 





Ges (repeat) 


Note that the contents of the boxes can be either True BASIC statements, Or more 


general mathematical statements. 
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3.4. Structure Plans 


This 1s an alternative method of program preparation, which has advantages when the 
equivalent flowchart gets rather big. It is an example of what is called pseudo-code. The 
plan may be written at a number of levels, of increasing complexity, as the logical 
structure of the program is developed. For example, a first level plan of the temperature 
conversion problem above might be a simple statement of the problem: 


1. Input Fahrenheit temperature 
2, Calculate and print Centigrade temperature 
3. Stop. 


Step | is pretty Straightforward, but step 2 needs elaborating, so the second level plan 
could be something like this: 


1. Input Fahrenheit temperature (TempF) 

2. Calculate Centigrade temperature (TempC): 
4.1. Subtract 32 from TempF and multiply by 5/9 

3. Print the value of LempC 

4. Stop. 


There are no hard and fast rules about flowcharts and structure plans, and you should 
use whichever method you prefer (or even a mixture). The essential point is to cultivate 
the mental discipline of getting the logic of a program clear before rushing to the 
computer. The “top down” approach of flowcharts or structure plans means that the 
overall structure of a program Is clearly thought out before you have to worry about the 
details of syntax (coding), and this reduces the number of errors enormously. 


One of the main criticisms of “Street” BASIC (the older forms of BASIC) ts that it is 
“unstructured”, and even Its most ardent proponents agree: 
“It may not be as efficient as the FORTRAN language for a scientific pr oblem, but it can 
solve the problem. BASIC is a loose and unstructured language, unlike Pascal which makes 
you think first and program later. But this freedom to roam around in the program makes 
the code friendlier.”’ (Galanter, 1983, p. 75) 


It is precisely this “freedom to roam around in the program” which makes it so easy to 
get intO massive logical tangles, or ‘‘spaghetti’”, when writing complex programs in 
Street BASIC. Although True BASIC is perfectly well structured, as we shall see in the 
following chapters, it is still possible to write messy True BASIC programs, especially 
if you are a Street BASIC addict trying to kick the habit. It 1s therefore extremely 
Important to plan your programs carefully beforehand, although many programmers 
steadfastly resist such an approach, for example Galanter, who asserts: 
“In the opinion of a large and vocal minority of programming instructors, (Street) BASIC 
does not qualify as a really good programming language because it does not foster 
structured programming. To grasp the flavour of this criticism, you must understand that 
these instructors want more thinking before you sit down at the machine. Their notion is 
that ‘efficiency’ is improved by preplanning the form of the program. Such preplanning can 
be done using BASIC just as well as it can using a structured language like Pascal. But the 
critics’ point is that the language does not force you to plan in advance, which a language 
like Pascal does.” (Op. cit. p. 154). 


I am definitely one of those instructors who “want more thinking before you sit down 
at the machine”’! 
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3.5. Quadratic Equation: Structure Plan 


The equivalent structure plan for the quadratic equation problem flow-charted above 
is as follows: 
1. Start 
2. Input data (a, b, c) 
3. Ifa =0 then 
3.1. If b = 0 then 
3.1.1. If c= 0 then 
3.1.1.1. Print ‘‘Solution indeterminate”’ 
Otherwise 
3.1.1.2. Print ‘‘There is no solution’’ 
Otherwise 
3.1.2. x = —c/b 
3.1.3. Print x (one root: equation is linear) 
Otherwise 
3.2. If b* < 4ac then 
3.2.1. Print ‘“Complex roots”’ 
Otherwise 
3.2.2. If b* = 4ac then 
3.2.2.1. x = —b/(2a) 
3.2.2.2. Print x (equal roots) 
Otherwise 
3.2.2.3. x, =[—b + V(b? — 4ac) ]/ (2a) 
3.2.2.4. x2 =[—b — V(b* + 4ac) | / (2a) 
3.2.2.5. Print x), x2 
4. Stop 


Details of how to code the /f-then blocks are discussed in Chapter Five. There are many 
more examples of structure plans throughout the book. 


3.6. Structured Programming 


Many examples later in the book (particularly in the last three chapters) will get rather 
involved. More advanced programs like these should be structured by means of 
subprograms, or procedures, which are dealt with in detail in Chapter 11. A procedure 
is a self-contained program unit which can communicate with the main part of the 
program in specific ways, and which may be invoked or “‘called”’ by the main program. 
The main program will then look very much like a first level structure plan of the 
problem. For example, the quadratic equation problem may be structure planned at the 
first level as follows: | 


1. Input the data 
2. Find and print the solution 
3. Stop. 
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Using a particular procedure, called a “subroutine”, this may be translated directly into 
a True BASIC main program: 


INPUT A, B, C 

CALL QUADRATIC( X1, X2, A, B, C) 
PRINT X14, X2 

END 


The details of how to code this problem are left as an exercise in Chapter 11. 


Summary 

* An algorithm is a systematic logical procedure for solving a problem. 

* An algorithm must be developed for a problem before it can be coded. 
* A flowchart is a diagrammatic representation of an algorithm. 


A structure plan is a representation of an algorithm in pseudo-code. 


EXERCISES 


3.1 This structure plan defines a geometric construction. Carry out the plan by 
sketching the construction: 
1. Draw two perpendicular x- and y-axes 
. Draw the points A (10; 0) and B (0; 1) 
3. While A does not coincide with the origin repeat: 
3.1. Draw a straight line joining A and B 
3.2. Move A one unit to the left along the x-axis 
3.3. Move B one unit up on the y-axis 
4. Stop. 


tO 


3.2 Consider the following structure plan, where M and N are True BASIC variables: 
1. Set M = 44 and N = 28 
2. While M not equal to N repeat: 
2.1. While M > N repeat: 
2.1.1. Replace M by M—WN 
2.2. While N > M repeat: 
2.2.1. Replace N by N— M 
3. Print M 
4. Stop. 
(a) Work through the structure plan, sketching the contents of M and N during 
execution. Give the output. 
(b) Repeat (a) for M = 14 and N = 24. ’ 
(c) What general arithmetic procedure does the algorithm carry out (try more 
values of M and N if necessary)? 


3.3. Write a structure plan for the conversion of a Centigrade ei ee a 
Fahrenheit one. Write the True BASIC program and test 1t on some sample data. 


Also try to write structure plans for the following problems (don’t try to write i 
programs until you’ve worked through Chapter Five): Exs 5.2, 5.3,5.4, 5.6, 6.13. 


CHAPTER 4 


BUILT-IN FUNCTIONS 


If you have mastered the contents of this book so far, you should be able to write a 
program which gets data into the computer, performs simple arithmetic operations on 
the data, and prints the results of the computation in a comprehensible form. However, 
more interesting problems are likely to involve special mathematical functions like 
sines, cosines, logarithms, etc. Just as most calculators have keys for these functions, 
True BASIC allows you to compute many functions directly. These functions are called 
built-in functions. 


4.1. Projectile Motion 


We want to write a program to compute the position (x and y co-ordinates) and velocity 
(magnitude and direction) of a projectile, given ¢, the time since launch, u, the launch 
velocity, a, the initial angle of launch (in degrees), and g, the acceleration due to gravity. 


The horizontal displacement is given by the formula 

x =u cos(a)t 

and the vertical displacement by 

y=usin(a)t — 0.5¢° . 

The velocity has magnitude V such that 

Ve= V(V." + Vy"), 

where its horizontal and vertical components, V, and V,, are given by 
‘. =u cos(a), 
y =u sin(a) — gt, 

and V makes an angle 6 with the ground such that 

tan(@) = V,/V,. 

The program is: 

! PROJECTILE POSITION AND VELOCITY 

READ A, G, T, U 


LET A = A * PI / 180 
LET X = U* COS( A) *T 
LET Y= U * SIN( A) * T-05* G*T%* 2 


LET VX = U * COS( A) 
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LET VY = U* SIN} A)-G*T 
LET V = SQR( VX * 24+ VY72) 
LET THETA = ATN( VY / VX ) * 180/ PI | CONVERT BACK TO DEGREES 


PRINT "x:"; X, "y:"; Y 

PRINT “V:”; V, CHRS$( 233 );":"; THETA; “degrees” 
DATA 60, 9.8, 10, 60 

END 


If you run this program with the data as given you will see from the negative value of 
9 that the projectile is coming down. 

The argument of a built-in function may be any valid True BASIC expression, including 
another function. So V could have been computed directly as follows: 


LET V = SQR( (U * COS( A )) * 2 + (U * SINC A )—G * T) * 2 ) 

(The argument of SQR is always positive here (why?) so no problems can arise.) 
Angles for the trigonometric functions must be expressed in radians, by default. To 
convert degrees to radians, multiply the angle in degrees by PI/180, where PI is a built-in 


function with the well-known value 3.1415926... If you want to impress your friends, 
however, you can cunningly exploit the mathematical fact that the arctangent of lis 7/4, 


and use the ATN built-in function: 


LET MYPI = 4 * ATN( 1 ) 
LET A = A * MYPI / 180 | CONVERT DEGREES TO RADIANS 


Alternatively, all angles for the trigonometric functions will be treated as degrees if the 
statement 


OPTION ANGLE DEGREES 
is used before any of the functions are called. For angles to be assumed in radian 
measure subsequent to this, use the statement 


OPTION ANGLE RADIANS 


The string function CHR$ with argument 233 enables you to print the Greek symbol “0” 
on the screen (see below and Appendix D, which also describes how to get special 
characters directly on the screen). To print the special symbols on your printer, 
however, you will need to consult your printer manual for any additional control 
characters required, and you may also need a special font for your printer. 


4.2. Some Useful Built-in Functions 


A complete list of the built-in functions supported by True BASIC appears in Appendix 
C. Some of the more common ones are given here. In the list below, N, X and X$ stand 
for any True BASIC numeric or string constant, variable or expression. The name ofa 
built-in function may be used a variable, but then that function is unavailable to the 
program. 


ABS( X ) absolute value. 
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aoe 


ANGLE( X, Y ) 
ATN( X ) 
CHRS( N ) 


COS( X ) 
DATE 


DATES 
EXP( X ) 
FP( X ) 
INT( X ) 
IP( X ) 


LCASES( X$ ) 


LOG( X ° 
LOG10( X ) 
MAX( X, Y ) 
MIN( X, Y ) 
MOD( X, Y ) 


P| 
REPEAT$( X$, N ) 


RND 


ROUND( X ) 


ROUND( X, N ) 
SIN( X ) 

SQR( X ) 

TAN( X ) 

TIME 


counterclockwise angle between the positive x-axis and the 
point (X; Y), in the range -z to x. 

arctangent of X 

character with ASCII code N, e.g. 

Ok. PRINT CHR$( 64 ) 

@ 

cosine of X. 

current date in numeric form YYDDD, e.g. on the 2nd of 
February 1986, DATE had the value 86033 (the 33rd day of 
1986). 

current date in string form “yyyymmdd”’, e.g. on Christmas 
Day 1985, DATE$ had the value “19851225” 


e*. 


fractional part of X, e.g. 

Ok. PRINT FP( 45.67 ); FP( —2.89 ) 
67 —.89 

largest integer not exceeding XA, e.g. 
Ok. PRINT INT( 45.67 ); INT( —2.89 ) 
45 -3 

integer part of X, e.g. 

Ok. PRINT IP( 45.67 ); IP( —2.89 ) 
45 -2 

converts letters to lowercase, e.g. 
Ok. PRINT LCASE("R2D2” ) 

r2d2 

natural logarithm of X. 

logarithm to the base 10 of X. 
maximum of X and Y. 

minimum of X and Y. 

absolute value of the remainder when X is divided by Y, 
e.g. 

Ok PRINT MOD( 13, 5 ); MOD( 4, 4 ) 
3 0 

value of m (3.1415926 ... ). 

N repeats of the string X$, e.g. 
Ok. PRINT REPEAT("—", 8 ) 


“pseudo-random” number uniformly distributed over the 
interval [0; 1). 
rounds to nearest integer, e.g. 


Ok. PRINT ROUND( 45.67 ); ROUND( —2.49 ) 
46 -2 


rounds to N decimals. 

sine of X. 

square root of X, where X > 0. 
tangent of X. 

current time in seconds since midnight. 
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TIME$ current time in string form “hAh:mmiss’’. E.g. the following 
program displays the time continuously in the middle of the 
screen until any key is pressed: 
CLEAR 
SET COLOR "black/white/blink” !see Chapter 12 
DO 
SET CURSOR 12, 35 
PRINT TIMES 
LOOP UNTIL KEY INPUT 
END 
truncates to N decimal places, e.g. 
Ok. PRINT TRUNCATE( 45.67, 1 ) 
45.6 
UCASE$( X$ ) converts letters to uppercase, e.g. 
Ok. PRINT UCASE( "r2d2” ) 
R2D2 


TRUNCATE( X, N ) 


Summary 
«Built-in functions may be used to compute a variety of mathematical, trigonometric 
and other functions directly. 


EXERCISES 


4.1 A fruit co-operative wants a program which reads the number of apples (Box Ful) 
that can be packed into one box and the number of apples to be packed altogether 
(Apples), and prints out the number of boxes needed (Boxes) and the number of 


apples left over (Leff). 
(a) Write the structure plan for the problem. 
(b) Write the program. 
4.2 Write some True BASIC statements which will: 
(a) find the length C of the hypotenuse of a right-angle triangle in terms of the 
lengths A and B of the other two sides; 


(b) find the length C of a side of a triangle given the lengths A and B of the other 
two sides and the size in degrees of the included angle 7heta, using the cosine 


rule: 
(c) change the sign of X if J is even. 
4.3 Translate the following formulae into True BASIC expressions: 
(a) log.(x + x* + a’) 
(b) logio(y) 
(c) [e* + fsin(4r)] cos?(3r) 
(d) 4tan~*(1) 
(e) sec?(x) + cot(y) 
(f) cot~}(|x/al) 
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4.4 A-sphere of mass m, impinges obliquely on a stationary sphere of mass mz, the 
direction of the blow making an angle « with the line of motion of the impinging 
sphere. If the coefficient of restitution is e it can be shown that the impinging 
sphere is deflected through an angle B such that 


m2(1 + e)tan(«) 
tan(B) = : — 
(m, — emz) + (m, + m2)tan?(«) 


Write a program to read values of mm, m2, e, and « (in degrees) and to compute 
and print out the angle 6 in degrees. 


CHAPTER 5 


CONTROL STRUCTURES I: 
DECISIONS 








Apart from a computer’s ability to add numbers extremely quickly, its other major 
attribute is to be able to make decisions, as we saw in Chapter Two. It is this facility 
which gives the computer its great problem-solving power. The fundamental decision- 
making construction in True BASIC is the IF statement, of which the SELECT CASE 
Statement is another form. 


0.1. The IF statement 


We have seen the use of the simple one-line IF-THEN-ELSE statement in Chapter Two. 
However, it may be generalized by a control structure which spreads over many lines, 
as the next two examples show. 


Bending Moment in a Beam 


A light uniform beam 0 < x < L is clamped with its ends at the same level, and carries 
a concentrated load W at x =a. The bending moment M at any point x along the beam 
IS given by two different formulae, depending on the value of x relative to a, viz. 


M = W(L—a)[aL —x(L+2a)/L2 (0<x Sa), 
M = Wa’[aL — 2L7 + x(3L —2a)//L? (a<x<L). 


The following program computes the bending moment every metre along a 10 m beam, 
with a load of 100 Newtons at a point 8 m from the end x = 0: 


! BENDING MOMENT 


LET L = 10 
LET W = 100 
LET A = 8 


LET M = W* (L—A) 7 2/L°*3* (A* L—X * (L + 2 * A)) 

ELSE 
LETM=W*A%2/L°3* (A*L-2*L%* 2 + X * (38 * L—2 * A)) 
END IF 

PRINT X, M 
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END 

Note that the entire IF-THEN-ELSE structure covers five lines. Since only one LET 
statement must be executed for each of the two cases x S a and x > a, the IF-THEN-ELSE 
could have been written on one line, as in Chapter Two, but the line would have been 
very long; it is better to split it up as shown above. However, in the next example, it is 


not possible to use a one-line IF-THEN. 


Top of the Class 


A class of 50 students write a test, and each student’s name and mark is typed in a DATA 
statement. Assume there are no negative marks. We want to write a program which 
prints out the name of the student with the highest mark, together with his/her mark. 
We are assuming that there is only one highest mark. The problem of what to do when 
two or more students share the top mark is discussed in Chapter Nine. 


A first level structure plan for this problem could be: 


1. Start 
2. Find top student and top mark 
3. Print top student and top mark. 


Step 2 needs elaborating, so a more detailed plan might be: 


1. Start 
2. Initialize TopMark (to get process going) 
3. Repeat 50 times: 
3.1 Input Name and Mark 
3.2 If Mark > TopMark then 
3.2.1. Replace TopMark with Mark 
3.2.2. Replace TopStudent with Name 
. Print TopStudent and TopMark 
5. Stop. 


The program is: 
! FINDS TOP STUDENT IN CLASS 


| | ; STUDENT COUNTER 

|! MARK - GENERAL MARK 

|! NAME$ >; GENERAL NAME 

! TOP__MARK : TOP MARK 

! TOP_STUDENT$: TOP STUDENT 

LET TOPMARK = 0 | It can’t be less than that! 


FOR | = 1 TO 50 
READ NAME$, MARK 
IF MARK > TOP_MARK THEN 
LET TOP_STUDENT$ = NAMES | keep his/her name ... 
LET TOP_MARK = MARK 
END IF 
NEXT | 


CONTROL STRUCTURES I: DECISIONS 55 





PRINT "Top student: ” ; TOP_STUDENT$ 
PRINT "Top mark: ” ; TOP__MARK 
DATA JONES GR, 68 

DATA SMITH lJ, 99 

DATA THOMSON RE, 12 


END 
Work through the program by hand for a few turns to convince yourself that it works. 


Note that both LET statements between THEN and END IF are executed if the condition 
MARK > TOP__MARK is true, and that there is no ELSE in this example. 


The ELSEIF Construct 


Recall the final mark example in sections 2.12 and 2.13. Suppose we want not only to 
print the category of pass for each student, but also to count how many passed in the first 
class, how many in the second class, and so on. Let the variables FIRSTS, UPSECONDS, 
LOWSECONDS, THIRDS and FAILS represent the number of students in each of these 
respective classes. We could replace lines 272-280 by the following: 


IF FIN >= 75 THEN 


PRINT "I" 

LET FIRSTS = FIRSTS + 1 
ELSE IF FIN >= 70 

PRINT "I]-” 


LET UPSECONDS = UPSECONDS + 1 
ELSE IF FIN >= 60 

PRINT "II" 

LET LOWSECONDS = LOWSECONDS + 1 
ELSE IF FIN >= 50 THEN 

PRINT "III" 

LET THIRDS = THIRDS + 1 
ELSE 

PRINT "FAIL" 

LET FAILS = FAILS + 1 
END IF 


This says in plain English what happens; further explanation is almost unnecessary. 


The General Form of |F-THEN-ELSEIF 


The most general form of this control structure is as follows: 


IF condition] THEN 


4 blockl 
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ELSE IF condition2 THEN 
.. block2 

ELSE IF... THEN 

ELSE 

. blockE 

END IF 


The action is straightforward. If conditionl is true, the statements in block] are 
executed, and True BASIC then branches to the statement after the closing END IF. If 
condition! is false, condition2 is examined. If it is true, the statements 1n block2 are 
executed, followed by the statement after the END IF. In this way, each ELSE IF clause 
is examined, until a true condition is found. As soon as a true one is found, no further 
ELSE IFs are examined. If none of the conditions is true, the statements in blockE after 
the ELSE are executed. The conditions should be arranged so that only one of them will 
be true at a time. The blocks of statements may contain any True BASIC statements, 
including more IF-THEN-ELSEs. 


There may be any number of ELSE IF clauses. For compatibility with ANS BASIC, the 
ELSE IF keyword may be written as one word: ELSEIF. There may be no ELSE clause, 
but not more than one. The END IF keyword must be written as two words. Nothing must 
be typed on the lines after the keywords THEN, ELSE and END IF. 


It is good programming style to indent blocks of statements inside IF statemenis. 


When IF statements are nested, the positioning of the END IFs is crucial, as this 
determines to which IFs the ELSEIFs belong (by default an ELSEIF or ELSE belongs to 
the most recent IF). E.¢. 


IF ... THEN 
IF ... THEN 
ELSE ‘belongs to 2nd IF 


END IF 
END IF 


IF ... THEN 
IF ... THEN 


END IF 
ELSE belongs to 1st IF now 


END IF 


The END IF closes the most recent IF. 
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Logical Expressions 


These were mentioned briefly in Chapter Two, but need to be tidied up. Logical 
expressions can only have the values true or false, and can be formed in two. ways. The 
first is from expressions in combination with the six relational operators shown below: 


Relational Operator Meaning 

< less than 

<= or =< less than or equal to 

= equal to 

>= or => greater than or equal to 
> ereater than 

<> or >< not equal to 


A space may not be typed between parts of the two-character operators, 1.e. you may 
nottype"< =". 


Examples of logical expressions thus formed are: 


Logical expressions may also be formed from other logical expressions using the three 
logical operators NOT, AND, and OR. Parentheses may also be used. Examples are’ 


B*2=4*A*CANDA <> 0 
FIN >= 60 AND FIN < 70 
A=0ORB=O0ORC=0 
(NOTA =0ORB=C)ANDD>E 


The effects of these operators on two logical expressions /ex] and /ex2 are shown in t 
following ‘‘truth” table (T = true; F = false): 


lex] lex2 NOT lex1l lex1 AND lex2 lexl OR lex2 
T T F T T 
[ F F F T 
F T aa F T 
fk F T EF F 


The precedence of the logical operators is: parentheses, NOT, AND, OR. So if lex, lex2 
and /ex3 are logical expressions, the following two expressions are logically equivalent: 


lex] AND NOT Jex2 OR lex3 
( lexJ AND (NOT /ex2) ) OR lex3 


The following two expressions are also equivalent, and are false only when 
A=B=C=0: 


A <> 0ORB<>O0OORC <> 0 
NOT( A = 0 AND B = 0 AND C = QO) 
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It makes you think, doesn’t it? 

True BASIC always “‘short-circuits” complex logical expressions once their truth value 
is known. E.g. in 

1=10R3+2=6 

the truth value of ‘3 + 2 = 6” is not computed since the ‘1 = 1” is true, and OR makes 


the whole expression true whatever follows. A program can therefore often be speeded 
up by re-arranging the order of logical expressions. 


True BASIC has no logical or ““Boolean”’ variables. 


Spaghetti 


Earlier versions of BASIC had a little four-letter statement which, more than anything 
else, has contributed to the bad name that BASIC has among many computer scientists. 


The statement is 


GOTO n 


where n is any line number in the program. A few harmless looking GOTOs scattered 
throughout a decently structured program can reduce it to a shivering mass of tangled 
sphagetti in a few moments. Consider the following example. 

lex] and /ex2 are two logical expressions. If /ex] is true, | and J are to be set to 1 and 2 


respectively. If /ex] is false and /ex2 is true, | and J are to be set to 2 and 3. If /ex/ and 
lex2 are both false, | and J are to be set to 3 and 4. The flowchart is: 
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The spaghetti version of the coding for this is: 


10 IF NOT lex! THEN GOTO 50 


20 LET | = 1 

30 LET J = 2 

40 GOTO 110 

50 IF NOT /ex2 THEN GOTO 90 
60 LET | = 2 

70 LET J = 3 

80 GOTO 110 

90 LET | = 3 

100 LET J = 4 

110 ... 


Although True BASIC has a GOTO statement, you should never use it! There are at least 


two vastly better ways of coding this problem. One uses IF-THEN-ELSEIF: 


IF lex] THEN 

LET | = 1 

LET J = 2 
ELSE IF lex2 THEN 

LET | = 2 

LET J=3 
ELSE 

LET! = 03 

LET J = 4 
END IF 


The other uses nested IFs: 


IF lex] THEN 
LET | = 1 
LET J = 2 

ELSE 
IF /ex2 THEN 

Beh ie 
LET J 3 
ELSE 
LET | 3 
LET J = 4 
END IF 
END IF 


Either version is acceptable, but the first one is probably easier to read. 


5.2. The SELECT CASE statement 


This control structure is similar to the IF-THEN-ELSEIF construct, and 1s sometimes more 
convenient, being less wordy. The segment above to analyse students’ marks may be 


coded as follows with a SELECT CASE statement: 


SELECT CASE FIN 
CASE |S >= 75 
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LET FIRSTS = FIRSTS + 1 
PRINT "I" 


CASE 70 TO 74.99 
LET UPSECONDS = UPSECONDS + 1 


PRINT “II-+-" 


CASE 60 TO 69.99 
LET LOWSECONDS = LOWSECONDS + 1 


PRINT “Il—" 

CASE 50 TO 59.99 
LET THIRDS = THIRDS + 1 
PRINT “III” 

CASE ELSE 
LET FAILS = FAILS + 1 
PRINT “FAIL” 

END SELECT 


The general syntax of SELECT CASE is: 


SELECT CASE expr 
CASE testl, test2, ... 


.. block! 
CASE test3, test4, ... 
a block2 
SASE ... 
CASE ELSE 
.. blockE 
END SELECT 


The expression expr is evaluated and compared with the tests. If expr is numeric, the 
tests must all be numeric; if it is a string, all the tests must be for strings. [here are three 


forms of tests: 


constant 
low TO high (used in CASEs 2 to 4 above) 
IS operator constant (used in the first CASE above) 


where constant, low and high are string or numeric constants, and operator is a relational 
operator. Expressions and variables are not allowed in the tests. More than one test may 
be listed for each CASE, provided the tests are separated by commas. If any of the tests 
succeed, that CASE is chosen. 

When a matching test is found, the block of statements for that CASE are executed 
followed by the next statement after the closing END SELECT statement. If no test 
succeeds, the CASE ELSE part is executed. The CASE ELSE part is optional, and must 
be at the end, but if one is missing when needed, a run-time error occurs. The tests 
should all be mutually exclusive. 
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The SELECT CASE statement is useful for “menu selection” programs. The user is 
presented with a number of choices, which are usually indicated by single letters. A 
SELECT CASE statement can be used to choose the appropriate action. 


summary 
* Logical expressions can only have one of two values: true or false. 


* Logical expressions are formed from arithmetic expressions with relational operators 
(<, =, =% <->, >, >=). 


* The logical operators (NOT, AND, OR) may be used to form more complex logical 
expressions from other logical expressions. 


* The IF-THEN-ELSEIF and SELECT CASE control structures may be used to choose 
between alternative actions. 


EXERCISES 


).1 Write a program which inputs two numbers and prints out the larger one with a 
suitable message, or if they are equal prints out a message to that effect. 


5.2 Write a structure plan and program for the following problem: input 10 numbers 
and print out how many of them are positive, negative or zero. 


5.3 Develop a structure plan to find the smallest number in a list of 10 numbers input 
irom the keyboard, and the position of the smallest one in the list. Write the 
program. 

5.4 Design an algorithm (draw the flowchart or structure plan) for a machine which 
must give the correct amount of change from a R10 note for any purchase costing 
less than R10. The plan must specify the number and type of all notes and coins 
in the change, and should in all cases give as few notes and coins as possible. 


5.5 Write a program for the general solution of the quadratic equation 
ax” + bx +c=0. 


Use the structure plan developed in Chapter Three. Your program should be able 
to handle all possible values of the data a, b, and c. 


5.6 Develop a structure plan for the solution of two simultaneous linear equations 
(i.e. two straight lines). Your algorithm must be able to handle all possible 
Situations, viz. lines intersecting, parallel, or co-incident. Write a program to 
implement your algorithm, and test it on some equations for which you know the 
solutions, e.g. 


x+ty=3 

2x—y=3 

(x = 2, y = 1). Hint: begin by deriving an algebraic formula for the solution of the 
system 

ax + by=c 


dx + ey =f. 
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CONTROL STRUCTURES I: 
REPETITION 


In Chapter Two we introduced the powerful FOR-NEXT control structure to execute a 
block of statements repeatedly. This type of structure, where the number of repetitions 
may be determined in advance, is sometimes called deterministic repetition. However, 
it often happens that the condition to end a repeat structure (loop) is only satisfied 
during the execution of the loop itself. This type of repeat structure is called 
non-deterministic. In this chapter we will use both types of repeat structure to solve a 
range of interesting problems. 


6.1. Deterministic Repetition: FOR-NEXT 


In this section we see how to generalize the FOR-NEXT statement introduced in Chapter 
Two. 


Plotting a Sine Curve 


The following program draws a sine curve on the screen over two periods. The special 
graphics statements will only be discussed in detail in Chapter 12. The main point 
illustrated here is that the counter X in the FOR-NEXT loop may be incremented by any 
value, not only 1. 


1 SINE CURVE 
SET WINDOW 0, 15, —4, 4 


FOR X = 0 TO 4 * Pl STEP PI / 20 
PLOT X, SIN( X ): 
NEXT X 


END 


General Definition of FOR-NEXT 
The general form is 


FOR = JTOK STEP L 
- body of loop 


NEXT / 
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where / is a numeric variable, (also called the index variable) and J, K, and L may be 
any numeric expressions. The STEP part may be omitted, in which case L = 1 by 
default. 

If the step-size L is positive, the statements between FOR and NEXT are executed 
repeatedly with / starting at J and increased by L each time until the body of the loop 
has been executed for J having its greatest value not exceeding K, e.g. 


FOR | = 2 TO 7 STEP 2 
PRINT |; 

NEXT | 

Ok. run 

2 4 6 


If L > 0 and J >K the body of the loop is never executed, e.g. 


FOR! =5 704 1 L = 1 by default 
PRINT I; 

NEXT | 

Ok. run 

Ok. (i.e. no output) 

If L < 0 the body of the loop is executed until it has been executed with J having its 

smallest value which 1s not less than K, e.g. 


FOR | = 5 TO 1 STEP —1 
PRINT |; 

NEXT | 

Ok. run 

Soares oe. | 


FOR | = 6 TO 1 STEP -2 
PRINT |: 

NEXT | 

Ok. run 

6 4 2 


If L <Q andJ < K the body of the loop is never executed. 


The index variable J should not be changed by any statements in the loop, 1.e. it should 
not appear on the lefthand side of an assignment statement in the body of the loop. 


For the sake of completeness, the EXIT FOR statement should be mentioned. It enables 
control to be transferred out of a FOR-NEXT loop. Since this is almost as bad as GOTO 
its use is definitely not recommended. It is much better programming practice to use the 


DO-LOOP structures described below. 


Vertical Motion Again 


The example in Chapter Two, where a stone is projected vertically, may be amended 
with a FOR-NEXT statement to print the stone’s displacement at regular intervals, of half 


a second, say: 
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| VERTICAL MOTION UNDER GRAVITY 
PRINT "TIME”, “DISPLACEMENT” 


PRINT 

LET G = 9.8 

LET U = 60 

FOR T = 0 TO 11 STEP 0.5 


LET S =U * T=G L271 “ez 
PRINT T, S 
NEXT T 
END 
If you run this example, you will see that the stone goes up and comes down during this 
period. Use trial and error to find out more precisely when the stone reaches the ground 
again. 


Damped Oscillations 


The current flowing in a circuit consisting of a resistance, inductance and initially 
charged condenser, connected in series is given by 


t= Aexp(—Rt/2L)sin(21f0) 
where 
A — 2nfo" Ofi, 
fo = VIWMLOV(2z), 
1 = V{i1/(LC) — R?7/(4L7)]/(22), 
and the symbols have the meanings 
current (amperes) at time f; 
maximum current; 
time (seconds elapsed since circuit connected); 
resistance (ohms); 
inductance (henrys); 
frequency (cycles/sec) of undamped (R = 0) circuit; 
frequency of damped circuit; 
capacitance (farads) of the condenser; 
initial charge (coulombs) on the condenser. 


OARS hat a 


We want to compute the current over a period of CYCLES complete cycles, where 
PERCY evaluations per cycle are made. The current must therefore be computed 
CYCLES * PERCY times altogether. The time DT between successive evaluations will be 
given by the statement 


LET DT = 1 / (PERCY * F1) 


since the period of the oscillations is 1/f; seconds. The program, which uses high 
resolution graphics, is as follows: 
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|! DAMPED OSCILLATIONS 


SET MODE “hires” 
SET WINDOW 0, 0.3E-—2, —0.8E—1, 0.8E—1 
READ Q, R, ©, L 


LET CYCLES = 3 
LET PERCY = 40 

LET FO = SQR( 1/(L*C))/ (2 * PI 

LET Fi = SQA(1/(L* C)-R*2/(4*L%* 2))/ (2 * Pl) 
LETA=2* PI *FO*2*Q/F1 

LETT =0 


LET DT = 1 / (PERCY * F1) 


FOR K = 1 TO CYCLES * PERCY + 1 
eR meee the UR SBSLERI INN Be SARh MPI re). 
PLOT T, |: 
LET T = T + DT 

NEXT K 

PLOT 

PLOT 0O, 0; T, O 

DATA 1E—5, 4, 1E-—5, 2E-3 

END 


Figure 6-1. Damped oscillations in a RLC circuit 





(If your computer doesn’t have graphics facilities, replace the PLOT statement inside the 
FOR-NEXT loop with PRINT.) You should:see a series of oscillations which are smaller 
each cycle, as shown in Fig. 6-1. Thisis an example of a model: the program behaves like 
the real thing. You can “tune”’ the apparatus by fiddling with the values of O, R, Cand 
L. For example, changing R will change the amount of damping, but it will also change 
the frequency f;, whereas changing C will only affect the frequency. Do a few 
experiments with your model. 


Factorials! 


The index variable in a FOR-NEXT loop may be used in any expression inside the loop, 
as long as its value is not changed. The following program prints a table of n and n! 
(spoken as “n factorial”’, or ‘‘n shriek’’ ), where 


= 1X2X3X ... X(n — 1)Xn. 
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REM N! 
LET FACT = 1 


FOR N = 1 TO 25 
LET FACT = N * FACT 
PRINT N; TAB( 5 ); FACT 
NEXT N 


END 


The Binomial Coefficient 


This is widely used in statistics. The number of ways of choosing r objects out of n 
without regard to order is given by: 


n’ n! _ B= l)\(n —2)...(n—rt+T1) 
‘ | = ri(n—r)! r! 
n\- 10! _ 10X9X8 
at ~ $Biseaah 12x: 


If the first form is used, the numbers involved can get very big, and there could be an 
‘overflow’ on some computers. But using the form on the right is much more efficient: 


|! BINOMIAL COEFFICIENT (NcR) 
LET BIN = 1 
INPUT PROMPT '"n and r? ": N, R 


FOR K = 1 TO R 
LET BIN = BIN * (N—K + 1) /K 
NEXT K 
PRINT N;"c"; R;”="; BIN 
END 


Computing the Limit of a Sequence 


FOR-NEXT loops are ideal for computing successive members of a sequence. This 
example also highlights a problem that sometimes occurs when computing a limit. 
Consider the sequence 


tn = a2 int n= 12,3, 2: 


where a is any constant, and m! is the factorial function defined above. The question is: 
what is the limit of this sequence as n gets indefinitely large? Let’s take the case a = 10. 
If we try to compute x,, directly we could get into trouble, because n! gets large very 
rapidly as m increases, and a machine overflow could occur. However, the situation 1s 
neatly transformed if we spot that x,, is related to x,—-; as follows: 


Xn — aX,—1/n “ 
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There are no overflow problems now. The following program computes x,, for a = 10, 
and increasing values of n, and prints it for every tenth value of n: 


| Limits 


LET a 
LET x 


FOR n = 1 TO 100 
LETx=a*x/n 
IF MOD( n, 10 ) = 0 THEN PRINT n; TAB( 8 ); x 
NEXT n 


END 
The output is as follows: 


10 2755.73 

20 41.1032 

30 3.76999e—3 
40 1.22562e—8 
50 3.28795e—-15 
60 1.20178e-—22 
70 8.34824e-—31 
80 1.39724e—39 
90 6.73076e—49 
100 1.07151e—-58 


From these results it appears that the limit is zero, and this may be proved mathemat- 
ically. For some more examples of calculus with computers, see Bitter (1983). 


10 


ll fl 


Note that the above program was typed in lowercase. The DO FORMAT command was 
used to convert keywords to uppercase and to indent neatly. 


Nested Loops: Loan Repayments 


The regular fixed payment P, made n times a year, to repay a loan of amount A over 
a period of k years, where the nominal annual interest rate is r, is given by 


P = (r/n)A(1 + r/n)"*/[(1 + r/n)"* — 1). 

The next program uses a nested FOR-NEXT loop to print a table of the repayments on 
a loan of $1000 over 15, 20 or 25 years, at interest rates that vary from 10% to 20% per 
annum. Since the formula is linear in the amount of the loan, the repayments on a loan 
of any amount may be found from the table generated by the program, by simple 
proportion. 


! REGULAR LOAN REPAYMENT 


LET A = 1000 ! Principal 

LET N = 12 ! Number of payments per year 
CLEAR 

PRINT “RATE”, “15 YRS", "20 YRS”, "25 YRS” 

PRINT 


FOR R = 0.1 TO 0.2 STEP 0.01 
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PRINT 100 * R;"%", 


FOR K = 15 TO 25 STEP 5 
LETP =R/N*A* (1 +R/N)*(N* K)/ ((1+R/N)*(N*K) —1) 


PRINT P, 
NEXT K 
PRINT 

NEXT R 

END 

The output ts: 

RATE 15 YRS 20 YRS 25 YRS 
10% 10.7461 9.65022 9.08701 
11% 11.366 10.3219 9.80113 
19% 16.8288 16.2068 15.9768 
20% 17.563 16.9882 16.7845 
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The Telephone 


This example, from Kemeny and Kurtz (1985b), uses a nested FOR-NEXT loop to imitate 
the ringing of a telephone: 

| Imitate ringing of a telephone. 
FOR ring = 1 to 8 | Ring 8 times 


FOR i = 1 to 80 
SOUND 600, .03 
SOUND 1500, .03 

NEXT } 


PAUSE 2 


NEXT ring 
END 


| Each ring = 30 alternations 
! Freq 600 for .03 sec. 
|! Then 1500 for .03 sec. 


The statement 
SOUND freq, time 


sounds the computer’s speaker. freq is a numeric expression which gives the frequency 
in Hertz, and time is also a numeric expression, giving the duration in seconds. 


6.2. Non-deterministic Repetition: The DO Statement 


The number of loops executed by a FOR-NEXT structure are determined in advance of 
its first execution by the program. This is not the case with the DO-LOOP construct. 
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Reaction Time Test 


The following program measures, to the nearest tenth of a second, the time that elapses 
between the moment that the computer sounds a musical note and the user presses any 
key on the keyboard. The note is sounded a randomly varying period after execution 
starts (RND and RANDOMIZE are fully discussed in Chapter 13). Try it out to test your 


reaction time. 
! REACTION TIME 


RANDOMIZE 

PAUSE 5 * RND 
SOUND 512, 0.1 

LET TSTART = TIME 


DO 
LOOP UNTIL KEY INPUT 


LET TEND = TIME 

PRINT “Reaction time:”; TEND — TSTART 

END 

The compound DO-LOOP statement executes repeatedly (doing nothing) until any key 
is pressed. Control then moves to the statement after the loop, and the reaction time is 
computed. 

KEY INPUT is a logical function, which is true if the user has pressed a key since the last 
time input was entered from the keyboard, or since execution began. It is used to test 
if any key has been pressed. 


Joubling Time of an Investment 


The next example uses a different form of the DO-LOOP control structure to compute 
the time taken for an investment drawing 10% interest per year to double. The structure 


plan for the problem 1s: 


I, Start 

2. Initialize balance, year, rate, interest 

3, Print headings 

4. While balance < twice original balance repeat: 
4.1. Print year, interest, balance 
4.2. Update balance according to interest rate 


5. Stop. 

! DOUBLING TIME OF AN INVESTMENT 
CLEAR 

INPUT PROMPT "Original balance: ”: OLD 
LET RATE = 0.1 

LET NEW = OLD 

LET INTEREST = 0 

LET YEAR = 0 


PRINT Year’, “Interest”, "Balance” 





CONTROL STRUCTURES II: REPETITION 71 


PRINT 


DO WHILE NEW < 2 * OLD 
PRINT YEAR, INTEREST, NEW 


LET INTEREST = RATE * NEW 
LET NEW = NEW + INTEREST 
LET YEAR = YEAR + 1 

LOOP 

END 


The condition NEW < 2 * OLD 1s checked each time before the body of the loop (the 
statements between DO and LOOP) is executed. Execution takes place only if the 
condition is true. The output looks like this (for an opening balance of $1000): 


Year Interest Balance 
OQ 0 1000 
1 100 1100 
2 110 1210 
3 121 1331 
4 133.1 1464.1 
5 146.41 1610.51 
6 161.051 1771.56 
7 177.156 1948.72 


Note that when the last loop begins, the condition is true, since the new balance 
($1948.72) is less than $2000. This balance is printed, but by the end of the loop the new 
balance has exceeded $2000. This is never printed, because the condition to repeat is no 
longer irue. Note also that a FOR-NEXT loop cannot be used here because you don’t 
know how many repeats are going to be needed (eight in this case, since the first one 1s 
for year 0) until after the program has run. 


If it is required to print the new balance until it first exceeds $2000, all that has to be done 
is to move the PRINT statement until it is the last statement in the loop (try it). Note that 
the starting balance is not printed now: this requires a separate PRINT statement before 
the loop starts. Alternatively, the DO-LOOP can be recoded as follows: 


DO 
LET INTEREST = RATE * NEW 
LET NEW = NEW + INTEREST 
LET YEAR = YEAR + 1 
PRINT YEAR, INTEREST, NEW 
LOOP UNTIL NEW > 2* OLD 


Try this also. Either form is acceptable, although the purists might prefer the first form 
(DO-WHILE), since this states the condition for repeating clearly at the beginning of the 
loop. This condition is immediately apparent to anyone reading the program: you do 
not have to search for the end of the loop to find the condition to stop repeating. 


The General Form of the DO Statement 


There are a number of variations. The following two are recommended: 
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DO WHILE condition 
... body of loop 

LOOP 

and 


DO 
: body of loop 


LOOP UNTIL condition 

The DO-WHILE structure repeats while its condition remains true. The condition 
therefore is the condition to repeat again. The condition is tested each time before the 
body of the loop is repeated. Since the condition is at the head of the loop, it is therefore 
possible to arrange for the loop not be executed at all under certain circumstances. 


The DO-UNTIL structure repeats until its condition becomes true. The condition is 
therefore the condition to stop repeating. The condition is tested after each repeat 
before making another repeat. Since the condition is at the end of the loop, the body of 
the loop will always be executed atleast once. DO-UNTIL 1s useful for programming menu 
selection, where the menu Is always presented at least once. 

In general it is possible to add a WHILE or UNTIL condition to either the DO or LOOP part, 
or to both (when the conditions may be different). It is, however, recommended that 
you stick to the two variations outlined above, which are identical to the While Do and 
Repeat Until structures in Pascal, for example. 

It 1s also possible to jump out of a DO loop with an EXIT DO statement placed anywhere 
inside the loop. Control is transferred to the next statement after the LOOP statement. 
This is definitely not recommended, since it is almost as bad as GOTO. Principles of good 
structured programming require that either all or none of the statements in a loop are 
executed, but never only some. 


Testing for More Data 


The next program reads an unknown number of experimental observations from DATA 
statements and prints their mean: 


|! MEAN OF EXPERIMENTAL READINGS 
LET NUM, SUM = 0 


DO WHILE MORE DATA 
READ X 
LET SUM = SUM + X 
LET NUM = NUM + 17 
LOOP 


IF NUM > 0 THEN 
LET MEAN = SUM / NUM 
PRINT “Mean value of’; NUM; "readings:”; MEAN 
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ELSE 
PRINT "No readings, no mean!” 
END IF 
DATA 1, 2, 3, 4, 5, 6 
END 


The logical function MORE DATA is true only if there are more data items waiting to be 
read. The programmer does not therefore need to know how many data items there are 
(it may be a nuisance to have to count them exactly). MORE DATA also prevents a 
run-time error when there is no data, since in this case the body of the loop is never 
executed (and the IF statement prevents division by zero). END DATA is another logical 
function, which is the exact opposite of MORE DATA: it is true if there are no more data 
items waiting to be read. 


Taylor Series for Sine 


You may have wondered how the computer calculates functions such as sine and cosine. 
Really ancient computers actually used to look up tables entered in memory, but young 
up and coming ones are more cunning. Mathematically, it can be shown that sin(x), for 
example, is the sum of an infinite series (called a Taylor series), as follows: 


sin(x) = x — x°/3! + 2/5! — x7/7! +... 


We obviously can’t compute the sum of an infinite series (why not?), but we can at least 
arrange to stop after the terms in the series are all less than some prescribed value, say 
te—6. It can be shown that we can always get a term less than some arbitrarily small 
number by going far enough in the Taylor series. As an exercise you should try to draw 
the flowchart or structure plan before studying the program. The main idea here is to 
construct each term in the series from the previous one, as described in the limit 
example in section 6.11. In constructing the denominator each time, use has been made 
of the fact that if k is any integer, 2k is even and 2k+1 is odd. The program is as follows: 


|! COMPUTES SIN(X) WITH TAYLOR SERIES 


| ERR ; MAX ERROR REQUIRED / K : TERM COUNTER 
| SINE ;: SUM OF SERIES / TERM : GENERAL TERM 
| X ; ANGLE IN RADIANS 

INPUT PROMPT "Angle (in degrees): ": X | 

LET X = RAD( X ) | Converts to radians 


LET TERM = X 

LET SINE = TERM 
LET ERR = 1E-6 
LET K = 0 


DO WHILE ABS( TERM ) > ERR 
LET K = K + 1 
LET TERM =— TERM * X * X/ (2 * K * (2 * K + 1)) 
LET SINE = SINE + TERM 

LOOP 

PRINT “After’; K; terms Tayor series gives:”; TAB( 41 ); SINE 
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PRINT "Computer's built-in SIN function gives:”; TAB( 41 ); SIN( X ) 

END 

Algorithms such as this can be used to compute other built-in functions on calculators 
and computers. 


Summary 


* A FOR-NEXT loop should be used to program a deterministic repeat structure, where 
the number of repeats is known to the program (i.e. in principle to the programmer) 
before the loop is encountered. This situation is characterized by the general structure 
plan 
1. Repeat N times: 

1.1 Statements to be repeated 
where N is known or computed before step 1 is encountered, and is not changed by 
step 1.1. The general syntax for FOR-NEXT Is: 


FOR var = first TO last STEP size 
... body of loop 


NEXT var 


* A DOloop should be used to program a non-deterministic repeat structure, where the 
exact number of repeats is not known in advance. Another way of saying this is that 
a DO loop should be used to repeat whenever the truth value of the conditioz for 
repeating 1s changed in the body of the loop. This situation 1s characterized by the 
following two structure plans: 


1. While condition is true repeat: 
1.1. Statements to be repeated (which should reset the truth value of condition) 


Or 


1. Repeat: 
1.1. Statements to be repeated (which should reset the truth value of condition) 


Until condition is true. 


The syntax of these two forms is: 


DO WHILE condition 


... body of loop 
LOOP 
or 
DO 


... body of loop 


LOOP UNTIL condition 
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The body of a DO-WHILE structure may sometimes never be executed. 

The body of a DO-UNTIL structure is always executed at least once. 

FOR-NEXT and DO loops may be nested inside each other. 

KEY INPUT is true if a key has been pressed since the last input was read from the 


keyboard. MORE DATA is true if there is more data to be read, while END DATA Is true 
if there is no more data to be read. 


“¥- 


The computer’s speaker may be sounded with the SOUND statement. 


EXERCISES 

6.1 Write a program to compute the sum of the integers 1 to 100. 

6.2. Write a program to compute the sum of the series 
LS Se © 100. 

6.3 There are many formulae for computing x (the ratio of a circle’s circumference 
to its diameter). The simplest is 

w4=1— WSF Wo YT te YD ee. (1) 

which comes from the series 

arctan(x) =x —x°'/3 + x/5 —x'/7+x7/9 —... (*) 

by letting x = 1. 

(a) Write a program to compute z using series (1). Use as many terms in the 
series as your computer will reasonably allow (start modestly, with 100 
terms, say, and re-run your program with more and more each time). You 
should find that the series converges very slowly, i.e. it takes a lot of terms 
to get fairly close to x. 

(b) Rearranging the series speeds up the convergence: 

m/8 = 1/(1X3) + 1/(5X7) + 1/(9X11) ... (2) 

Write a program to compute x using series (2) instead. You should find that 

you need fewer terms to reach the same level of accuracy that you got in (a). 
(c) One of the fastest series for x is 


m/4 = 6 arctan(1/8) + 2 arctan(1/57) + arctan(1/239) (3) 


Use this formula to compute x. Don’t use the built-in function ATN to 
compute the arctangents, since that would be cheating. Rather use the series 
(*) above. 


6.4 The following method of computing z is due to Archimedes. A derivation and 
discussion of it is given by Breuer and Zwas (1984): 


1. LetA =landN=6 
2. Repeat 10 times, say: 


2.1. Replace N by 2N 
2.2 Replace A by V[2 — V(4 — A*)] 
2.3. Let L = NA/2 
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2.4. Let U = L/V(1 — A?/2) 
2.5. Let P = (U + L)/2 (estimate of z) 
2.6. Let E = (U — L)/2 (estimate of error) 
2./. Print N, P, E 

3. Stop. 


Write a program to implement the algorithm. 
Write a program to compute a table of the function 

f(x) =x sin[ (1 + 20x)/2 | 
over the interval [—1; 1] using increments in x of (a) 0.2 (b) 0.1 and (c) 0.05. Use 
your tables to plot a graph of f(x) for the three cases, and observe that the tables 
for (a) and (b) give totally the wrong picture of f(x). When you have learnt some 
graphics get your program to draw the graph of f(x) for the three cases 
superimposed (see the solution to Ex. 12.1). 
The transcedental number e (2.718281828 ...) can be shown to be the limit of 


1/(1—x)"” 

as x tends to zero (from above). Write a program which shows how this expression 
converges to e as x gets closer and closer to zero. 

A “square wave’ of period 7 may be defined by the function 


f(t) =1(0<t<T), 
Spe <<), 


The Fourier series for f(t) is given by 
4 00 l  f (2k + 1)at 
—- j&%&2 — sin | ——— 
mn k=0 2k+1 | ZL | 

It is of interest to know how many terms are needed for a good approximation to 
this infinite sum. Taking T = 1, write a program to compute 7 terms of the series 
for t from 0 to 1 in steps of 0.1, say. Run the program for different values of n, e.g. 
1, 3, 6, etc. (See Chapter 12 for the graphics version. ) 

If an amount of money A is invested for k years at a nominal annual interest rate 
r (expressed as a decimal fraction), the value V of the investment after & years is 
given by 

V=A(1 + 7/n)" 

where 7 1s the number of compounding periods per year. Write a program to 
compute V as n gets larger and larger, i.e. as the compounding periods become 
more and more frequent, like monthly, daily, hourly, and ultimately instanta- 
neously (?). Take A = 1000, r= 4% and k = 10 years. You should observe that 
your output gradually approaches a limit. Also compute the value of the formula 


A alk 


for the same values of A, r and k (use the built-in function EXP), and compare this 
value with the values of V computed above. What do you conclude? 
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6.9 


6.10 


6.11] 
6.12 


6.13 


6.14 


6.15 


6.16 


Write a program to compute the sum of the series 


D2 ie 


such that the sum is as large as possible without exceeding 100. The program 
should print out how many terms are used in the sum. 

The compound interest program earlier in the chapter shows that an amount of 
$1000 will double in about seven years with an interest rate of 10%. Using the 
same interest rate, run the program with initial balances of $500, $2000 and $10000 
(say) to see how long they all take to double. The results may surprise you. 
Write a program to implement the structure plan of Ex. 3.2. 

Use the Taylor series 


cos(x) = 1 — x7/2! + x4/4! — x°/6! + ... 


to write a program to compute cos(x) correct to four decimal places (x is in 
radians). See how many terms are needed to get four-figure agreement with the 
built-in function COS. 

A man borrows $10000 to buy a used car. Interest on his loan is compounded at 
the rate of 2% per month while the outstanding balance of the loan is less than 
$5000, and at 1% per month otherwise. He pays back $300 every month, except 
for the last month, when the repayment must be less than $300. He pays at the end 
of the month, after the interest on the balance has been compounded. The first 
repayment is made one month after the loan is paid out to him. Write a program 
which prints out a monthly statement of the balance (after the monthly payment 
has been made), the final payment, and the month of the final payment. 


A projectile, the equations of motion of which are given in Chapter Four, 1s 
launched from the point O with an initial velocity of 60 m/s at an angle of 50° to 
the horizontal. Write a program which computes and prints out the time in the air, 
and horizontal and vertical displacement from the point O every 0.5 seconds, as 
long as the projectile remains above a horizontal plane through O. 


When a resistor (R), capacitor (C) and battery (V) are connected in series, a 
charge Q builds up on the capacitor according to the formula 


O(t) = CV(1 — e7"*S) 


if there is no charge on the capacitor at time t = 0. The problem 1s to monitor the 

charge on the Capacitor every 0.1 seconds in order to detect when it reaches a level 
of 8 units of charge, given that V = 9, R= 4 and C= 1. Write a program which 
prints out the time and charge every 0.1 seconds until the charge first exceeds 8 
units (i.e the last charge printed must exceed 8). Once you have done this, rewrite 
the program to print the charge only while it is strictly less than 8 units. 

Write a program which behaves like a primitive stop-watch (to the nearest 
second). It should prompt the user to hit any key to start, and any key to finish. 
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ERRORS 








Programs seldom run correctly the first time, even for experienced programmers! In 
computer jargon, an error in a program 1s called a bug, and the process of detecting and 
correcting such errors is called debugging. To assist us in this sometimes arduous task, 
the compiler prints various types of warning or error messages, called diagnostics. 
There are three main types of errors: compilation errors, run-time errors, and errors of 
logic. There is also a more subtle error — rounding error — which creeps in sometimes 
because of finite machine precision. In this chapter we deal with the sort of errors that 
can arise with the programming we have done so far. Other possible sources of error wi!" 
be pointed out in later chapters in the appropriate places. 


7.1. Compilation Errors 


These are errors of syntax and construction, like spelling mistakes, that are picked u 

by the compiler during compilation, the process whereby your program Is translated 
into machine code. They are the most frequent type of error, and in True BASIC they 
are “‘fatal”’, 1.e. the program will not execute until the error has been corrected. True 
BASIC, unlike most versions of Street BASIC, generates compiler messages that are 
usually quite helpful. The cursor stops in the editing window at the place where the error 
was spotted, and an error message is printed in the history window. 


Since True BASIC uses a compiler, it attempts to translate the whole program into 
machine code at one “‘pass’’. It therefore takes a global view of the program, and will 
remember up to five compilation errors at one pass. If an error is reported, you should 
correct it, and then press F2 to get the next error message. Continue like this until you 
have corrected all the reported errors, and only then should you press F9 to run again. 
This is in sharp contrast with an interpreter, which can only report one error every time 
you run the program, because it only translates one line at a time. 


There are a large number of error messages, listed in Appendix B of the True BASIC 
Reference Manual, with some indications of the most likely cause of the errors. These 
should be consulted if you are unable to correct the error yourself. Some of the more 
common errors are discussed briefly below (you have probably come across most of 
them yourself by now!). 

Disk full. 


Although this usually means what it says, it also comes up if you type a space in a 
filename, as in 


Ok. Save B: Plonk 
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Remember that the drive name is part of the filename. 


Doesn't belong here. 
The cursor points to some word or character in your program that doesn’t make sense 
(to True BASIC!), e.g. the comma (which should be a point) in the statement 
LET G = 9,8 


Ending doesn’t match beginning. 
This usually means you haven’t ended a structure like IF-THEN-ELSE, or FOR-NEXT 
correctly (by leaving out the END IF or the NEXT). It also occurs with the following 
rather subtle error: 


IF MARK >= 50 THEN PRINT "PASS" 
ELSE 

PRINT "FAIL" 
END IF 


The compiler assumes that the IF-THEN is meant to be a simple one-line statement. 
It thinks therefore that the ELSE doesn’t have a beginning IF. To correct it, the 
statement PRINT “PASS” should be typed on a separate line. 


Expected fing. 


thing stands for some word or punctuation mark that the compiler expects in that 
place. E.g. with the statement 


INPUT PROMPT "Give me a number’; X 
the cursor stops under the semi-colon and True BASIC prints the message 
Expected ”:” 

Illegal expression. 


This usually means that an expression doesn’t follow True BASIC’s rules. E.g. it will 
occur with statements like 


IF MARK >= 70 AND < 75 THEN PRINT "II-+” 

with the cursor pointing to the “‘< since’, “‘ < 75” is not a logical expression. 
Illegal statement. 

This usually occurs when a keyword has been left out, as in 

X= 1 

where the keyword LET has been omitted (if you are converting from Street BASIC 

you will often do this!). 


Must be a variable. 
This message comes up with the statement 
INPUT "Give me a number’: X 


when the cursor will stop under the first double quote. This seems rather mysterious at 
first, since the actual error is that the word PROMPT was left out. The compiler, 
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however, expects a variable after the keyword INPUT. It-all goes to. show that error 
messages can sometimes be misleading because the compiler isn’t intelligent! 


Name can’t be redefined. 


This message is printed if you try to use a reserved word (see Appendix E) as a 
variable, e.g. in 


LET TIME = O 


7.2. Run-time Errors 


If a program is successfully compiled, it runs. Errors occurring at this stage in the 
proceedings are called run-time errors, and are usually fatal, causing the program to 
‘crash’’. An error message, such as “Division by zero’, or ‘““SQR of negative number” 
is printed. All the run-time error messages are listed alphabetically with the compilation 
error messages in the True BASIC Reference Manual. Run-time errors also have error 


numbers. There is a separate list of errors in order of error number in the Reference 
Manual. 


The BREAK and CONTINUE commands are very useful for debugging. BREAK enables 
you to interrupt execution of a program at any point, and examine and possibly change 
any variables. CONTINUE enables you to continue executing from that point (which 1s 
called a breakpoint). See Appendix B for details. 


Sometimes an error occurs because of a misspelt variable name. To guard against this. 
use the OPTION TYPO and LOCAL statements, e.g. 


OPTION TYPO 

LOCAL Num, X, 2Z(20) 

Any variables subsequently not listed in a LOCAL statement will cause the error message 
‘Unknown variable’, and True BASIC will point to the misspelt name. Note that the 
dimensions of arrays must be given in full (see Chapter Nine). 


Debugging with DO TRACE 


This command lets you watch a program executing step by step. The syntax 1S 
DO TRACE, option (varl, var2, ...) 

where option may be “‘step”’, “‘slow’’, “‘fast’’, or ‘‘break”’. Only the first letter of each 
is necessary. The program is traced highlighting one line at a time. Current values of the 
variables listed are displayed in a separate box. Up to eight variables may be traced at 
a time. See Appendix B for more details. 


Intercepting Errors with Error Handlers 


Sometimes it is very inconvenient (to say the least!) when a large program crashes 
leaving everything hanging. True BASIC therefore has a device called an error 
handler for intercepting otherwise fatal run-time errors. 


82 CHAPTER 7 





To illustrate this useful device, suppose we are given the time of flight 7F of a projectile 
ona horizontal plane, launched at an angle AL radians. We are required to compute the 
launch velocity UL, the time T at which the projectile will be a given height HT (less 
than its maximum height) above the ground on its way up, and the angle AV to the 
horizontal at which it is moving at time 7. Enter and run the following program as it 


Stands: 


! Example of Error Handler 


LET TF = 10 
LET G = 9.8 
LET HT = 10 


WHEN ERROR IN 
LET UL = G * TF / SIN( AL ) 
LET T = (2 * UL + SQR( 4 * UL* 2—8 * G * HT )) / (2 * G) 
LET AV = ATN( (UL * SIN( AL )—G * T ) / (UL * COS( AL )) ) 


USE 
PRINT “Error’; EXTYPE;": "; EXTEXTS 
PRINT "Occurred at line”; EXLINES 
END WHEN 
PRINT UL; T; AV 
END 


The output should be: 


Error 3001 : Division by zero. 
Occurred at line 8 in Main 
0 0 0 


The only error here is that the programmer forgot to assign a value to the launch angle 
AL. True BASIC automatically sets it to zero, and since the sine of zero is zero, this 
causes a division by zero in line 8 of the program. However, the error handler, described 


in detail below, prevents a general crash. 
The general syntax of the error handler is: 
WHEN ERROR IN 

_ protected block 

USE 

¢ error handler 


END WHEN 


The block of statements between WHEN and USE 1s called the protected block, and the 
block between USE and END WHEN 1s called the error handler. Normally True BASIC 
executes only the protected block and skips the error handler. However, if any run-time 
error occurs in the protected block, instead of crashing and printing the usual error 
message, True BASIC skips to the error handler and executes the statements there. 
Execution then continues with the next statement after END WHEN. You can therefore 
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write an error handler to take whatever action you want in the event of an error (you 
obviously have to be able to anticipate an error of some sort in advance). 


For compatibility with ANS BASIC, the word EXCEPTION may be used instead of 
ERROR anywhere in a program. 


Note that three new built-in functions were introduced in the error handler: EXTYPE, 
EXTEXT$ and EXLINES. These may be used anywhere in a program, but are most useful 
In an error handler. 


EXTYPE returns the error number of the most recent error. Its value can lie in three 
different ranges: 

Q: no error yet 

1 to 999: available for your use (see below) 

1000 and over: True BASIC error messages 


EXTEXT$ returns the text of the last error message that occurred (if the error occurred 
in a protected block the message would not have been printed). 


EXLINE$ returns the location, usually as a line number, in your program where the last 
error occurred. 


Error handlers may be nested, and the EXIT HANDLER statement may be used to “‘pass”’ 
an error back up to a surrounding handler at a higher level. The general idea is that some 
errors can be fixed on the spot by appropriate user action, while others might require 
more drastic measures (such as rewriting the program!). You will only need to use this 
facility if you are a more experienced programmer. 

You can define your own error codes using the range 1 to 999 for hitherto unknown 
errors that might crop up, with the statement 


CAUSE ERROR expr, expr$ 

E.g. 

CAUSE ERROR 123,”Some unknown disaster has struck!” 

Used in an error handler, this will prevent a crash, but still print the message. 


Error handlers are very useful in file handling programs, where one might accidentally 
attempt to read from files that aren’t there, or write to files that already are there. 
Examples of usage are given in Chapters Nine and 11. 


7.3. Errors in Logic 


These are errors in the actual algorithm you are using to solve a problem, and are the 
most difficult to find: the program runs, but gives the wrong answers! It's even worse 
if you don’t realize the answers are wrong. The following tips might help you to check 
out the logic. 


* Try to run the program for some special cases where you know the answers. 


* If you don’t know any exact answers, try to use your insight into the problem to check 
whether the answers seem to be of the right order of magnitude. 
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* When debugging remember that the variables remain “active” after the program has 
run. You can then use PRINT statements as commands in the history window to print 
the values of intermediate variables, and this can sometimes help to track down the 
bug. 

* Try working through the program by hand (or use DO TRACE) to see if you can spot 
where things start going wrong. 


/.4. Rounding Error 


At times the computer gives numerical answers to a problem which appear inexplicably 
different from what we know to be the correct mathematical solution. This can be due 
to rounding error, which results from the finite precision available on the computer, e.g. 
four or eight bytes (32 or 64 bits) per variable, instead of an infinite number. 
Run the following program (the PRINT USING statement is discussed in Chapter Eight, 
and is used here to print more decimal places): 
LET X = 0.1 
DO 

LET X = X + 0.01 

PRINT USING "#.###4##4#FFFFFEFEFEEEEE. X; 


LOOP UNTIL X = 0.2 
END 


You will find that you need Ctrl-Break to stop the program. X never has the value 0.2 
exactly, because of rounding error. It would be better to replace the LOOP statement 


with 
LOOP UNTIL X > 0.2 


Consider also the following example: 


LET A = 2 

LET B = SQR( A) * 2 

IF A = B THEN PRINT "NUMBERS EQUAL” 
PRINT A-B 

END 

Ok. run 

4.44089e—16 


Mathematically, A should be equal to B. But the test for equality fails because they have 
a non-zero difference, due to rounding error. The IF statement should be replaced by 


something like 

IF ABS( A-—B ) < 1E-—10 THEN PRINT "NUMBERS ARE PRACTICALLY EQUAL” 
or, even better, by 

IF ABS( A—B ) <=EPS(A) THEN... 


It is always better to use a test like this to compare two expressions, rather than a straight 
test for equality, which can often fail because of rounding error. 
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Rounding error may also be reduced by a mathematical rearrangement of the problem. 
If the well-known quadratic equation is written in the less usual form 


x*— 2ax te =0 

the two solutions may be expressed as 

X¥; =a+ V(a? —e), 

x2 =a— V(a* —e). 

If eis very small compared with a, the second root is expressed as the difference between 


two nearly equal numbers, and considerable significance is lost. E.g. taking a = 5e6 and 
€ = 1 gives 


X2 = 9.96515e—8 

in True BASIC. However, the second root may also be expressed mathematically as 
x2 = ella + V(a* — e)] = e/2a. 

Using this form in True BASIC gives 

x2 = 1e-7, 

which is more accurate. 


Rounding error is also discussed in section 15.3. 


summary 


* Compilation errors are mistakes in the syntax (coding). 


* Execution (run-time) errors occur while the program is running, and may be 
intercepted by an error handler. 

* Breakpoints may be inserted into a program with the BREAK command. 

* Logical errors are errors in the algorithm used to solve the problem. 


* Rounding error occurs because the computer can store numbers only to a finite 
accuracy. 


EXERCISES 
7.1. The Newton quotient 
f(x + h) — f(x)|/h 


may be used to compute the first derivative f’ (x) of a function f(x), if his “‘small’’. 
Write a program to compute the Newton quotient for the function 


fle) =x 
at the point x = 2 (the exact answer is 4) for values of A starting at 1, and 
decreasing by a factor of 10 each time. The effect of rounding error becomes 


apparent when h gets “‘too small’’, i.e. less than about 1e—12. (See section 15.3 
for the solution.) 
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The solution of the set of simultaneous equations 


ax + by=c 
ax +ey=f 


quoted in Ex. 5.6 is given by 


x = (ce — Df) / (ae — bd), 

y = (af — cd) / (ae — bd). 

If (ae — bd) is small, rounding error may cause quite large inaccuracies in the 
solution. Consider the system (McCracken and Dorn, 1964): 


0.2038x + 0.1218y = 0.2014, 
0.4071x + 0.2436y = 0.4038. 


Show that with four-figure floating point arithmetic the solution obtained is x = 
—1.714, y = 4.286. This level of accuracy may be simulated in the solution of 
Ex. 5.6 with some statements like 


LET AE = ROUND( A * E * 1E5 ) / 1E5 


and appropriate changes in the coding. The exact solution, however, which can 
be obtained with normal computer accuracy, is x = —2, y = 5. If the coefficients 
in the equations are themselves subject to experimental error, the “‘solution”’ of 
this system using limited accuracy is totally meaningless. 

This problem, suggested by R.V. Andree (cited by McCracken and Dorn, 1964), 
demonstrates another numerical problem called ill-conditioning, where a small 
change in the coefficients causes a large change in the solution. Show that the 
solution of the system 


x + 5.000y = 17.0 
L.5x + 7.501ly = 25.503 


Is xX = 2, y = 3, using the program in Ex. 5.6 with normal precision. Now change 
the constant term in the second equation to 25.501, a change of about one part 
in 12000, and observe that a totally different solution results. Also try changing 
this term to 25.502, 25.504, etc. If the coefficients are subject to experimental 
errors, the solution is again meaningless. One way to anticipate this sort of error 
is to perform a sensitivity analysis on the coefficients: change them all in turn by 
the same percentage, and observe what effect this has on the solution. 
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ADVANCED INPUT/OUTPUT 








So far we have concentrated on writing programs that give the right answers, without 
paying much attention to exactly how the numbers are printed (e.g. number of decimal 
places, number of spaces between items, right-justification of numbers, etc.). In this 
chapter we look at how to produce output that is neater and more pleasing to the eye 
with the PRINT USING statement. We will also discuss how to get input from, and send 
output to text files. 


8.1. Rabbit Breeding the Fibonacci Way 


To make the exercise more interesting, we will write a program to model a rabbit 
population using the following assumptions: 


1. We start with one new-born male/female pair; 

2. A new-born pair produce (instantaneously!) a male/female pair after two months; 

3. Male/female pairs of age two months and older produce a male/female pair every 
month. 


If we represent the number of male/female pairs after m months by the variable F,,, it can 
be shown quite easily that F,, takes the following values: 


Month n Population F, 
] 


JI nn & Wi 


8 


The sequence {F,,} is called the Fibonacci sequence. We want to write a program that 
computes the total population for up to, say, 12 months. (Note that the model does not 
allow for deaths; this dreadful possibility is discussed in Chapter 14). It can be shown 
mathematically that each term in the series is the sum of the previous two, 1.€. 


Fy — Py . fi. 


We therefore need to have three variables in the program, FN, FN_1 and FN_2, which 
are updated each month. An interesting feature of the Fibonacci sequence 1s that 


limit F,,/F,—-1 = (1 + V5)/2 = 1.6179... 


hH— 0 
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We will also compute this ratio, to verify that it has a limit (in fact the limit is the same 
whatever the two starting values in the sequence). The PRINT USING statement, which 
is discussed in detail below, is used to arrange the layout, or format of the output of the 
following program (note that in the line of output for month 3 the characters ‘““#”’ and 
“bh”? have been inserted into the text to aid the eye: they will not be printed literally). 


| RABBIT BREEDING WITH FIBONACCI 
| FN; TOTAL AFTER N MNTHS / FN_1 : TOTAL AFTER N—1 MNTHS 
| FN2 : TOTALAFTERN-2MNTHS / J : MONTH COUNTER 


LET FN_1, FN_2 = 1 
PRINT “MONTH POPULATION RATIO” 


PRINT 
FOR J = 3 10 12 
LET FN = FN_.1 + FN_2 
LET RATIO = FN / FN_1 
PRINT USING" ## HEP .F #.HHHH": J, FN, RATIO 
LET FN_2 = FN_1 
LET FN_.1 = FN 


NEXT J 
END 
Output: 
MONTH POPULATION RATIO 
b#3bbbbbbbbbbb###2.0 bbbbbbbbbb2.0000 
4 3.0 1.5000 
5 5.0 1.6667 
6 8.0 1.6000 
7 13.0 1.6250 
8 21.0 1.6154 
9 34.0 1.6190 
10 55.0 1.6176 
11 89.0 1.6182 
12 144.0 1.6180 


8.2. The PRINT USING Statement 


The PRINT USING statement is quite unlike the ordinary PRINT statement. Print zones 
are ignored, and output is printed according to a mask or image that you specify in the 
PRINT USING statement. The general syntax is 


PRINT USING formats: item, item2, ... 

PRINT USING format$: item, item2, ...; 

where formats is a string expression, called a format string, which specifies exactly how 
the items in the statement are to be printed. If the statement ends with a semi-colon, the 
cursor Is left at the end of the output line, otherwise it moves to the start of the next line. 
Semi-colons may not be used between items since they do not have the same effect as 
in the ordinary PRINT. 
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The format string may contain a mixture of literal characters, and format items 
consisting of special formatting characters. The literal characters are printed with the 
output items exactly as they appear in the format string, but the formatting characters 
specify how the output will be formatted, and are not printed literally. The eleven 
special formatting characters are: 


Pa" Fa He 35 SS 


Most of the complications arise in printing numbers, so we will discuss this first. 


8.3. PRINT USING with Numbers 


The numeric formatting characters are divided into three classes: leading characters (+ 
— $), digit characters (* % #) and other characters (, .*). One or more digit characters 
must be present in each format item. 


The Digit Characters (* % #) 


The most common digit character is the number sign (#). Each number sign represents 
a digit position in the output field. A decimal point may be inserted in the format item. 
If the output item does not fill the field it is right-justified. If a PRINT USING statement 
has more output items than format items, the format string is re-used repeatedly. If 
there are more format items than output items, the leftover format items are ignored. 
However, any literal characters following the format item last used are always printed. 
Some examples follow. 


LET X = 123.4567 

PRINT USING "###.#": X; 
PRINT USING "#####": X 
END 

Ok. run 

123.5 123 


Note that the output item is rounded (to an integer if necessary). Remember that the 
print zones are ignored, and that a comma should never be used after the last output 
item. 


LET X = 12.3446 
PET s¥-es" 193 
PRINT USING "###.##": X, Y 
PRINT USING "#####": X, Y 
END 
Ok. run 
12.34123.00 
12 123 


If you want to use the TAB function, it must be used in a PRINT statement on a separate 
line: 

LET X 
LET Y 


6.45 
7.34 
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PRINT USING "X=##.#": X; 
PRINT TAB( 10 ) 

PRINT USING 'Y=##.#": Y 
END 

RUN 

Ok. run 

X= 65 Y= 7.3 


Literal characters may be mixed with the format items: 


LET A = 1.2 

LET B = 3.4 

PRINT USING "The sum of ##.# and ##.# is ##.#": A, B, A+B 
END 

Ok. run 


The sum of 1.2 and 3.4 is 4.6 
If the output number is too large for the format item, the entire field is printed as 
asterisks: 


LET X = 123.456 

PRINT USING "##.4#": X 

END 

Ok. run 

KKKKK 

When the ‘‘#” digit character is used, leading zeros are printed as blanks. However, the 
‘“*?” and ‘‘%”’ digit characters cause leading zeros to be printed as asterisks and zeros 
respectively (digit characters may not be mixed on the same side of the decimal point): 


LET X = .12 
PRINT USING "X: ##.4##": X 

PRINT USING "X: **.**": X 

PRINT USING "X: %%.%%": X 

END 

Ok. run 

X: .12 

X: **.12 

X: 00.12 

If the output item is negative, the minus sign takes up one position, so this must be 
allowed for: 


PRINT USING "X: ##.##": -—1.2 
X: —1.20 


The Leading Characters (+ — $) 


The printing of a plus or minus sign (and a dollar sign) may be further controlled by the 
use of one or two of the leading characters. A single plus leading character causes the 
number to be printed with a single plus or minus sign on the extreme left of the field, 
whereas a single minus leading character prints a leading space or a single minus sign on 
the extreme left of the field. The dollar sign may be mixed with either of the other 
leading characters to print a leading dollar sign. 
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The first leading character may be repeated, and will be turned into leading spaces or 
leading digits if necessary. In other words, if you want the sign printed right up against 
the number, fill up the format item with the appropriate leading character from the left, 
and put only one “#”’ digit character before the decimal point. Examples: 


PRINT USING "+####.#": 12.3 
PRINT USING "++++#.#": —12.3 
PRINT USING "$$$$#.##": 99.99 
PRINT USING "———$#.##”: —99.99 
PRINT USING "$****.##": 99.99 
+ 12.3 

—12.3 

$99.99 
—$99.99 
$**Q9_ 99 


Other Characters (, . *) 


We have already seen how to use the decimal point in a format field. A comma may be 
used to print acomma anywhere if the characters on either side are digits (otherwise the 
comma is turned into a space): 


PRINT USING’ =-+—= S# ###.#F#": —123456.7 
—$123,456.70 


The circumflex (*) may be used to indicate the size of the exponent if scientific notation 
is required. The exponent field must come at the end of the format item, and must be 
at least three characters long, to allow for the ‘“‘e’’, a plus or minus sign, and at least one 
digit for the exponent. No leading zeros are printed in this format, so the three digit 
characters all have the same effect. E.g. 


PRINT USING "###.###* **°": 123456.78 
PRINT USING "-——-—-—-%%.### ***": —123456.78 
123.457e+03 

—12.346e+4 


8.4. PRINT USING with Strings 


Strings may be printed by any numeric format item. By default, strings are padded with 
spaces to be as long as the format item. Spaces are added to both sides of the string so 
as to centre it (if necessary, there will be one more space on the right than on the left). 
If the string is too long to fit, the entire field is printed as asterisks. A string may be 
left-justified by starting its format item with the symbol “<”’, and right-justified with 
a god ay, 


PRINT USING "######": "UCT" 
PRINT USING "<###.##": "UCT" 
PRINT USING "$$—#.#>": "UCT" 
UCT 
UCT 
UCT 
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8.5. Files 


Output from a program may be sent to a file which resides permanently on a diskette, 
and input may also be fetched by a program from such a file. This facility provides a 
means of keeping records which constantly need to be updated or examined and 
analysed. A file may be thought of as a continuous stream of data, rather like a tape. 
There are three kinds of files in True BASIC: text files, record files and byte files. In this 
section we are going to look at an example using text files, which will carry through to 
the next chapter: initializing and updating a student mark file which contains a list of 
students’ names with their marks for various course offerings. Record and byte files will 
be discussed in Chapter Ten. 


Updating Student Marks 


A text file consists simply of lines of characters. They look just like program files, and 
may be viewed on the screen with the True BASIC editor. This makes them particularly 
easy to work with. We will begin with a program to write a list of names to a new text 
file in drive B called ‘‘MARKS.”’. Before a file can be used by a program, it must have 
a channel associated with it by means of an OPEN statement. This channel provides the 
communication link between the file and the program until the channel is closed at the 
end of the program. The OPEN statement also specifies the kind of file (handled by the 
ORGANIZATION part), and whether it is a new or existing file (handled by the CREATE 
part). In the example below, it is assumed that there is no file on the diskette with the 
name “MARKS.”’. If there is, the program will crash. Try the program, and type in a 
short list of names, as shown below: 


! SENDING NAMES TO A TEXT FILE 
OPEN #1: NAME "B:MARKS.”, ORGANIZATION TEXT, CREATE NEW 
INPUT PROMPT "Name: ”: NAME$ 


DO WHILE NAME$ <> "SNOOPY” 
PRINT #1: NAME$ 
INPUT PROMPT "Name: ”: NAME$ 
LOOP 
CLOSE #1 
END 
Ok. run 
Name: ABLE ER 
Name: BOTHA BJ 
Name: SMITH ZZ 
Name: SNOOPY 
When you run the program you should notice the red light going on next to drive B as 
the file “MARKS.” is created and written to. Note that a period must be inserted after 
its name in the OPEN statement to avoid having the ‘.. TRU” extension automatically 
appended by True BASIC (unless of course you want it). 


The OPEN statement is discussed in detail below. It has several optional parts. Only the 
NAME part must be there. 
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The DO loop inputs names from the keyboard, until the dummy name “SNOOPY’”’ is 
read, which signals the end of the data. The PRINT statement for text files works exactly 
as it does for the screen, except that the channel number must be given. You can think 
of the text file as being a copy of the screen. It is divided into print zones, so commas, 
semi-colons, PRINT USING, etc. have exactly the same effect as on the screen. 


The CLOSE statement at the end disconnects channel #1 from the file. 


When the program has run, save it (if you want to keep it), and then get the file 
“MARKS.” into the editing window with the OLD command to see if the program 
worked. You should see some lines of text, each with one name on it. If the file has no 


extension you must remember to type the period, otherwise True BASIC assumes the 
extension “.TRU”: 


OLD B:MARKS. 
It will also not show up with the FILES B: command. Instead use 
FILES B:*. 


Weare now ready to update the student file “MARKS” (the period will be omitted from 
now on) by writing some test results to it. Unfortunately, a text file cannot be updated 
directly with a program (this can be done with record and byte files), since you can only 
add new data on at the end of it, or erase it completely and start again at the beginning. 
You cannot simply replace an item somewhere in the middle of the file. Of course you 
can do this with the screen editor, or a word processor, but we are trying to do this from 
inside a frue BASIC program. The way out is to read the students’ names one at a time 
from “MARKS”, input a mark for each from the keyboard, and write the name with the 
mark to a new text file which we shall call “SCRATCH”. When all the marks have been 
typed in, “MARKS” must be erased, and “SCRATCH” copied back into it. Enter the 
following program, and try it out with some sample data: 


| UPDATES STUDENT MARKS BY ADDING MARKS FOR ONE OFFERING 


OPEN #1: NAME ”"B:MARKS.” | The current mark file 
OPEN #2: NAME "B:SCRATCH.”, CREATE NEW ! The updated mark file 
DO WHILE MORE #1 

INPUT #1: NAME$ 

PRINT USING "<##########": NAMES: 

INPUT PROMPT “Mark: ": MARK 

PRINT #2: NAME$;”,”: MARK 


LOOP 

SET #2: POINTER BEGIN | Ready to read back 

ERASE #1 | Delete contents of MARKS 
DO WHILE MORE #2 | Copy SCRATCH into MARKS 


LINE INPUT #2: LINES 
PRINT #1: LINES 
LOOP 


CLOSE #1 | Close all channels 
CLOSE #2 


END 


04 CHAPTER 8 


Ok. run 

ABLE ER Mark: 78 

BOTHA BJ Mark: 0 

SMITH ZZ Mark: 99 

The two open statements connect channels #1 and #2 to the files “MARKS” and 
“SCRATCH” respectively. “MARKS” already exists, sono CREATE part is needed. If 
the file does not exist, the program will crash. However, “SCRATCH” should be a new 
file, so a CREATE part is needed in the second OPEN statement. If there is already a file 
with such a name, the program will also crash. In the next chapter we will see how to 
use an error handler to intercept these possible errors. The program context makes it 
clear to True BASIC that the files are text files, so the optional ORGANIZATION part is 


left out, just to be different. 

Input from a text file works more or less like input from the keyboard, except that the 
channel number must be given. This means that True BASIC expects to find data items 
on the same line in a text file to be separated by commas. The logical function MORE 
#1 is used to test if there is more data in the file. It works just like MORE DATA. END 
#1 could also be used: it is true only if you're at the end of the file. 


After each student’s mark has been keyed in (in the first DO loop), his name and mark 
are sent to “SCRATCH”. Note that a comma has to be printed literally between the 


name and mark: 


PRINT #2: NAME$; ”,”; MARK 
This is so that the INPUT statement can be used to read them back again. 


When all the marks have been entered, we want to read them back from “SCRATCH”, 
but we can’t do this immediately. A file has a pointer, which points to where the file is 
next going to be read from or written to. The pointer for “SCRATCH” must therefore 
be moved back to the beginning of the file, and this is done with the statement 


SET #2: POINTER BEGIN 

Since an existing text file cannot be overwritten (as a protection), ““‘MARKS”’ has to be 
erased before it can be rewritten. The ERASE statement deletes the contents of the file, 
which still exists, but is empty. The second DO loop then uses LINE INPUT #2 to read 
each line of “SCRATCH” and PRINT #1 to write it to “MARKS”. 


Finally, both files are closed. “SCRATCH” could have been removed from the diskette 
with the UNSAVE statement, but it is better to leave it there as a backup until you have 
checked that ‘‘MARKS” has in fact been updated. 


You can always view a text file on the screen, but the following program prints the 
names and marks in a more pleasing format: 


! READS STUDENT MARK FILE AND PRINTS NEAT FORMATTED OUTPUT 


OPEN #1: NAME “B:MARKS.” 

CLEAR 

LET N = 10 

LET FORMAT$ ="<" & REPEATS("#”, N ) 
PRINT "NAME"; TAB( N + 2 );"MARK” 
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PRINT 


DO WHILE MORE #1 
INPUT #1: NAME$, MARK 
PRINT USING FORMAT$: NAME$; 
PRINT USING "###": MARK 
LOOP 


CLOSE #1 
SET CURSOR 24, 1 
PRINT "Hit any key to continue ...” 


END 

Ok. run 

NAME MARK 
ABLE ER 78 

BOTHA BJ 0 

SMITH ZZ 99 


The REPEATS$ function is used to construct a format item of N+1 formatting characters 
to print the name. Together with the TAB function, this ensures that the marks always 
fall under the heading ‘‘MARK” no matter what value N has. 


Files in General 


The information in this section applies to all three kinds of files. 
The general form of the OPEN statement is: 


OPEN #expr: NAME expr$, ACCESS expr$, CREATE exprS, ... 
.. ORGANIZATION expr$, RECSIZE expr 


where the strings may be constants, variables or expressions. The channel number must 
be a numeric expression which evaluates to a number in the range 1 to 1000. You may 
have up to 25 different files open at one time, if your computer system allows that many. 


Channel #0 is the channel for the screen and keyboard, and is always open. It cannot 
be closed. 


The only part of the OPEN statement that is compulsory is: 
OPEN #expr: NAME expr$ 


The other parts (ACCESS, CREATE, ORGANIZATION and RECSIZE) are syntactically 
optional, and can be in any order. If two or more are present, they must be separated 
by commas. The strings allowed after the first three are: 


Option String Meaning 
ACCESS INPUT Read-only 

OUTPUT Write-only 

OUTIN Read and/or write (default) 
CREATE NEW Create new file 

OLD Use existing file (default) 


NEWOLD Use existing file or create new one 
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ORGANIZATION TEXT Text file 
RECORD Record file 
BYTE Byte file 

Examples 


OPEN #1: NAME File$, ACCESS INPUT, ORGANIZATION RECORD 
OPEN #K: NAME ”B:INDEX”, ORGANIZATION TEXT, CREATE OPTIONS 


Note that the string constants may be typed without quote marks. Mixtures of lower- 
and uppercase are allowed. 


The meanings of the various options are fairly straightforward, and run-time errors will 
occur in obvious situations, like trying to erase or write to a read-only file, or trying to 
create a file that is already there. If you want more specific details, you should consult 


the Reference Manual. 

Different channels may be assigned to the same file at the same time only if access is 
INPUT. 

If the ORGANIZATION option is left out, True BASIC checks the file and uses whatever 
Organization it has (if the file is empty, it is assigned an organization when the first 
statement which determines its organization is executed). The word ORGANIZATION 
may be abbreviated to ORG. 

The RECSIZE option only applies to record and byte files (see Chapter Ten). 


A channel is closed as follows: 


CLOSE #expr 


This statement disconnects the channel from the file, and finishes writing out the file to 
the diskette, 1f appropriate. It is a good habit to close all channels at the end of a 
program, even though all channels are automatically closed when the program 


terminates. 

The statement 

ERASE #expr 

deletes the contents of a file. The file still exists, but is empty. The pointer is set back 


to the start of the file, and its organization is forgotten and can be changed by the next 
statement using the file. A read-only file cannot be erased, by definition, since ERASE 


changes its contents. 


A saved file may be removed from a diskette by the statement 


UNSAVE name$ 
A file should always be closed before it 1s unsaved, or strange things may happen! 


The ASK statement lets you find out information about open channels. The questions 
that apply to all kinds of files are: 
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ASK #expr: ACCESS var$ 

ASK #expr: FILESIZE var (size given in bytes or records) 
ASK #expr: NAME var$ 

ASK #expr: ORGANIZATION var$ 


See the Reference Manual for more specific details. 


Text Files in Particular 


A text file’s margin or print zone width may be set or ascertained in the same way as the 
screen's: 


ASK #expr: MARGIN var 

ASK #expr: ZONEWIDTH var 
SET #expr: MARGIN expr 
SET #expr: ZONEWIDTH expr 


A text file’s pointer may be set to the beginning or end of the file with the SET POINTER 
Statement: 


SET #expr: POINTER BEGIN 
SET #expr: POINTER END 


These statements are compatible with ANS BASIC. True BASIC allows you to shorten 
them to 


RESET #expr: BEGIN 

RESET #expr: END 

The position of the pointer may be ascertained with the statement 
ASK #expr: POINTER var$ 


If the pointer is neither at the beginning nor the end of the file, var$ is set to 
“MIDDLE”. 


Text files may only be written to with the PRINT (USING) statement (note the comma 
after the channel number in PRINT USING): 


PRINT #expr Ino colon for blank line 
PRINT #expr: iteml; item2, ... 


PRINT #expr, USING formats: item], item2, ...; 


A text file may not be overwritten, but data can be added on at the end (appended). To 
do this, the file’s pointer must first be set to the end of the file. 


Text files may only be read with the INPUT statement, and the pointer must be set to the 
beginning of the file (i.e. you cannot start reading a text file from anywhere else). OPEN 
automatically sets the pointer to the beginning. The form of INPUT 1s 


INPUT #expr: var, var$, ... 
LINE INPUT #expr: var$, ... 


Data items on the same line in the file must be separated by commas. A line of data may 
end with a comma to indicate that more data for that INPUT may be found on the next 
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line (the same applies to keyboard input). The INPUT statement may have a trailing 
comma, but no prompt. 


The two logical functions 


END #expr 
MORE #expr 


may be used to test for more input. 


Text files are useful for storing program output for viewing or printing later, or for use 
with a word-processor. The sample output for most of the programs in this book was 
first sent to a text file so that it could be copied into the text of the book with a word 


processor. 


Output to a Printer 


True BASIC treats a hard-copy printer attached to a computer as a text file. A channel 
may be opened to the printer as follows: 

OPEN #expr: PRINTER 

PRINT and PRINT USING can be used with this channel in the usual way, e.g. 

PRINT #1, USING” ##.####": X 

Often when developing a program it is convenient to test it with output to the screen, 
and only to send output to the printer when it is finally ready. This could involve 
changing all the PRINT statements in the program. However, since channel #0 stands 
for the screen, the print channel can be set by the program as follows: 


OPEN #1: PRINTER 


DO 
INPUT PROMPT "Output to screen (s) or printer (p)?”": ANS$ 
LET ANS$ = UCASE$( ANS$ ) | in case they use lowercase 
IF ANS$ ="S” THEN 
LET CH = 0 | screen 
ELSE IF ANS$ ="P” THEN 
LET CH = 1 | printer 
ELSE 
PRINT “Answer the question correctly!” 
END IF 


LOOP UNTIL ANS$ ="S” or ANS$ = "P" 

PRINT #CH:"This will be on the screen, or the printer ...” 

Summary 

* Format items consisting of special formatting characters in PRINT USING statements 
control the format of program output. 


* The formatting characters are as follows: 
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Leading Characters 


+ print number with leading “+” or “—’ 
— print number with leading space or “‘— 


$ print number with leading ‘‘$”’ 
Digit Characters 

* print leading zeros as ‘‘*’’ 

% print leading zeros as *‘Q”’ 

# print leading zeros as spaces 
Other Characters 

, Insert commas in number 


align decimal point here 
print exponent field 


*~ 


Leading String Characters 
< left-justify 
> right-justify 


A file is a collection of data which may be stored on a diskette. A program may read 


from or write to the file. 


program can access the file. 


Text files are lines of characters. 


the end of the file to append. 


EXERCISES 


8.1 


8.2 

(show spaces carefully): 

(a) 23.456 ("+t###.#") 

(c) —0.02343 ("-—-—% .###°°°") (d) “abc” ("###.##’) 
8.3 


to two decimal places. 


3 


* A text file can only be read from with (LINE) INPUT and written to with PRINT. 


(b) —1.2345 ("--—— .# #") 


99 


- A channel must be associated with the name of a file in an OPEN statement before a 


* A text file cannot be overwritten. Either use ERASE to empty it, or set the pointer to 


Rewrite the loan repayment example in section 6.1 to print the amounts correct 


State how the following items will be printed with the format strings in brackets 


You have a text file on a diskette called ‘“‘Volts.Exp”. Each line contains 


successive results of an experiment which records the voltage across a thermo- 
couple, and the time of the reading (in that order). Write a program which 
updates the file by adding the results of one more experiment to it (i.e. one more 
line). The program should also be able to handle the file initially when it contains 


no data. 
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SUBSCRIPTED VARIABLES: 
ARRAYS 


In real programs we often need to handle a large number of variables in the same way, 
e.g. to find the mean (average) of aset of numbers, or to sorta list of numbers or names, 
or to analyse a set of students’ test results, or to solve a set of differential equations. To 
avoid an enormously clumsy program, where perhaps hundreds of variable names are 
needed, we can use subscripted variables, or arrays (or lists). These are variables with 
components, rather like vectors or matrices, and they are written in the normal way, 


except that the subscripts are enclosed in parentheses after the variable name, e.g. X(3), 
YJ + 2*N). 


9.1. Mean and Standard Deviation 


To illustrate the basic principles, let’s compute the sample mean and standard deviation 
of a set of N observations. The mean is defined as 


= N 
A= 2 Xj iN 


i=] 
where X; is the ith observation. There are two ways of expressing the standard 
deviation. The less usual way (which doesn’t require the use of an array) is 

N ~— 
s°= (= X77 — NX)/(N—-1). 

i=1 

This form is used in the next program. The first READ statement reads the number of 
observations (10 in this case) from the first DATA statement into the variable N. 


' Here we go at Stats! 


LET MEAN = 0 | Mean 
LET STD = QO | Standard deviation 
READ N | Number of observations 
FOR |=1TON 

READ X 


LET MEAN = MEAN + X 
LET STD = STD + X* 2 
NEXT | 


! Now compute mean and standard deviation 

LET MEAN = MEAN /N 

LET STD = SQR( (STD—N * MEAN * 2) / (N—1) ) 
PRINT USING "MEAN: HH ##", MEAN 
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PRINT USING”STD DEVIATION: ##.##": STD 
DATA 10 


DATA 5.1, 6.2, 5.7, 3.5, 9.9, 1.2, 7.6, 5.3, 8.7, 4.4 
END 

Output: 

MEAN: 5.76 


STD DEVIATION: 2.53 

The two LET statements in the FOR-NEXT loop compute running totals for MEAN and 
STD, so MEAN, for example, will take the successive values 5.1, 11.3, 17.0, etc. A more 
familiar way of expressing the standard deviation 1s by the formula 


N = 
se= Y (X; — X)*/(N-1) 
i=] 


Programming this form introduces the use of an array. Suppose we still have 10 
observations. They may be read into memory locations X(1), X(2), ..., X(10), where X 
stands for any valid BASIC numeric variable. The mean may be computed while the 
observations are being read in, as before. When all the data have been read, they remain 
in variables X(1), ..., X(10), for further use later on in the program. The standard 
deviation may now be found by computing the deviation of each X(l) from the mean 
using the second formula quoted above. In the following program the MORE DATA 
function is used with READ, so that the amount of data is not fixed. It may, however, 
not exceed the number stated in the DIM statement: 100. 


! Example of the use of an array 


DIM X(100) ! Array declaration ... 

LET MEAN = 0 |... no more than 100 data items 
LET STD = 0 

LET N = 0 


DO WHILE MORE DATA 
LETN=N+4+1 
READ X(N) 
LET MEAN = MEAN + X(N) 
LOOP 


LET MEAN = MEAN / N 


FOR|=1TON 
LET STD = STD + (X(I) — MEAN) * 2 


NEXT | 
LET STD = SQR( STD / (N—1) ) 
PRINT USING "MEAN: ##.#'. MEAN 


PRINT USING "STD DEVIATION: ##.##”": STD 

DATA 9.1, 6.2, 5.7, 3.5, 9.9, 1.2, 7.6, 5.3, 8.7, 4.4 

END 

After the DO loop has been executed, the part of the memory storing the array X will 
look as follows: 
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9.2. General Rules for Arrays 


The following important points about arrays should be noted carefully. 


X in the above program is called an array, or list, or subscripted variable. Every array 
must be declared in a DIM (dimension) statement. The program looks clearer if each 
array is declared in a separate DIM statement, although this 1s not strictly necessary. 
Arrays must be declared before they are used. It is recommended that all arrays be 
declared at the start of a program. An array may have up to 10 dimensions, but arrays 
with large numbers of dimension take up large amounts of computer memory. E.g. 


DIM X( 100, 100, 100 ) 


creates an array with one million elements. In this chapter we will consider only 
one-dimensional arrays. Arrays of higher dimensions are discussed in Chapter 14. 


Individual members of an array are called elements of the array. 

The | in X(l) above is called the subscript, and may be any constant, variable or 
expression. If it is not a constant, it is rounded to the nearest integer, e.g. 

LET X( 7/4) = 1 


assigns the value 1 to X(2). The subscript must be within the bounds declared in the arrays 
DIM staéerment. 


By default, arrays have a lower bound of 1, i.e. the lowest value the subscript can take 
is 1 (as in the program above). However, you can have any lower bound you like. E.g. 


DIM A( 0:20 ) 
sets up an array A with subscripts ranging from 0 to 20. For compatibility with ANS 


BASIC the colon may be replaced with the word TO, e.g. DIM A( 0 TO 20 ). This form 
may also be used in True BASIC if you prefer it. 


Alternatively, the OPTION BASE statement sets a common lower bound for all arrays 


declared in subsequent DIM statements. The lower bound must be in the form of a 
constant, not an expression, e.g. 


OPTION BASE 0 


In the DIM statement the lower and upper subscript bounds must be integers in the range 
—1e9 to 1e9. 


Arithmetic may be done on the subscript of an array. The following program segment 
assigns the first 10 even numbers to the first 10 elements of an array: 
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DIM X(10) 
FOR | = 1 TO 10 
LET X(I) = 2 * | 
NEXT | 
There is a possible ambiguity in the following multiple LET involving an array subscript: 


LET | = 2 

LET |, A(l) = 1 

Does the second LET involve A(1) or A(2)? The rule is that arithmetic on the lefthand side 
is done before any assignments are made, so the second LET assigns the value 1 to A(2). 


Entire arrays may be input and output using special MAT statements: 


MAT INPUT X 

MAT READ X 

MAT LINE INPUT X$ 

MAT PRINT X 

MAT PRINT USING format: X 


This saves coding the FOR-NEXT loops for input and output, e.g. 


DIM X(10) 
MAT READ X 

MAT PRINT X: 

DATA 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 
END 


Ok. run 
1 323-3) 4 5° 6° 7 8 9 10 


When the MAT INPUT PROMPT and MAT LINE INPUT PROMPT statements are used, only 
the first line of input is prompted. 

Arrays may be redimensioned either explicitly or implicitly while a program is running, 
as long as the number of dimensions 1s not changed. The statements 


MAT READ X 
MAT INPUT X 
MAT LINE INPUT X$ 


can be used to redimension arrays explicitly. This can be useful when the writer of a 
general purpose program does not know in advance the dimensions of the arrays to be 
used. This information can be read in from a DATA statement: 


DIM X(1) 
READ N 
MAT READ X(N) 


As long as Nis a positive number less than 1e9, the array X will be redimensioned to have 
subscripts running from 1 to N. Another possibility is something like 


MAT INPUT X( 3 TO K + 3 ) 
which redimensions X to have subscripts running from 3 to K+3. The colon may also 
be used in place of TO here for compatibility with ANS BASIC. 
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A one-dimensional array may be redimensioned with a special form of MAT INPUT: 
MAT INPUT X(?) 


X is redimensioned to hold only as many elements as are typed in at the keyboard. The 
lower bound of X is held constant; the upper bound is changed if necessary. 


The built-in functions 


LBOUND( X ) 

UBOUND( X ) 

may be used in a program to find the lower and upper bound respectively of the 
subscripts of the one-dimensional array X. 


Implicit redimensioning is discussed in Chapter 14, where the remaining special MAT 
statements are introduced. 


9.3. Bar Charts and Frequency Distributions 


As our next example of the use of arrays, we will write a program to analyse the results 
of a test written by a class of students. We would like to know how many students 
obtained marks in the range0% - 9%,10% -— 19%, ..., 100% + (each of these ranges 
is called a decile). We will therefore need an array F, say, with 11 elements, where each 
element stores the number of students with marks in that particular range, as follows: 


number scoring 0% — 9% stored in F(0): Oth decile; 
number scoring 10% — 19% stored in F(1): 1st decile; 


number scoring 90% -— 99% stored in F(9): 9th decile; 
number scoring 100% and over stored in F(10): 10th decile. 


So altogether there are eleven deciles. The program needs to read each mark and deci 
to which of the 11 deciles that mark belongs: 


' Bar Chart of Test Results 
DIM F( 0:10 ) | The frequencies 


DO WHILE MORE DATA 

READ MARK 

LET K = INT( MARK / 10 ) | Decile 

LET F(K) = F(K) + 1 | Another mark in the Kth decile 
LOOP 


MAT PRINT F: 

DATA 56, 67, 38, 100, 88, 63, 4, 66, 80, 46, 51, 89, 0, 20, 32 
DATA 72, 96, 44, 62, 50, 2, 39, 82, 65, 40, 49, 54, 77, 90, 58 
DATA 61, 32, 49, 45, 59, 47, 42, 69, 76, 54 

END 


The output will be: 
SO te B27 ae Sa 


This means that three students eot marks in the range 0% — 9%, none in the range 
10% — 19%, etc. 
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The results can be presented visually by changing the program to print a bar chart of the 
frequencies F(l). The statement 


MAT PRINT F; 

above should be replaced by the following statements: 
CLEAR 

PRINT "BAR CHART OF TEST RESULTS” 

PRINT 

PRINT” RANGE NUMBER OF STUDENTS" 
PRINT 


FOR | = 0 TO 10 
PRINT USING "“###": 10 * I: 
PRINT USING "—-####": — (10 * | + 9); 
PRINT TAB( 17 ); 
PRINT USING "###:#": F(I); 
PRINT TAB( 22 ); 


FOR K = 1 TO Fl) 
PRINT "*”, 
NEXT K 


PRINT 
NEXT | 


The output now looks like this: 


BAR CHART OF TEST RESULTS 


RANGE NUMBER OF STUDENTS 
Q.i=" “9 Sanne 
LOR 0: 
20 — 29 Vaan 
30 - 39 4: ti 
40 — 49 QB: kkk kK 
50 — 59 7: KkKKKKK 
60 -— 69 7: KKKKKKK 
70: = 79 Q: wee 
80 - 89 4: wee 
90 — 99 Q: ** 
100 —109 1: * 


Note that F(1) is zero. The body of the FOR-NEXT loop on K is therefore not executed 
for K = 1, so no asterisks are printed for that decile. If your computer can print special 
graphics symbols, you can, for example, print solid bars instead of asterisks by replacing 
the PRINT statement in this FOR-NEXT loop with something like 


PRINT CHR&( 219 ): 
where 219 is the ASCII code (see Chapter Ten and Appendix D) for a solid block. 


9.4. Sorting a List: the Bubble Sort 


A standard application of arrays is in sorting a list of numbers into, let us say, ascending 
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order. The basic idea is that the unsorted list is read into an array. The numbers are then 
ordered by a process which essentially passes through the list many times, swopping 
consecutive elements that are in the wrong order, until all the elements are in the nght 
order. Such a process is called a Bubble Sort, because the smaller numbers rise to the 
top of the list, like bubbles of air in water. (In fact, in the version shown below, the 
largest number will “‘sink”’ to the bottom of the list after the first pass, which really 
makes it a “‘Lead Ball” sort.) There are many other methods of sorting (e.g. the Quick 
Sort), which may be found in most textbooks on computer science. These are generally 
more efficient than the bubble sort, but its advantage is that it is by far the easiest 
method to program. A structure plan for the bubble sort is as follows: 


1. Initialize NM (length of list) 
2. Read in the list X 
3. Repeat N—1 times on counter K: 
3.1 Repeat N—K times on counter J: 
3.1.1 If X; > Xj; then 
3.1.1.1 Swop the contents of X; and X;+ 
4, Print the list X, which 1s now sorted. 


As an example, consider a list of five numbers: 27, 13, 9,5 and 3. They are initially read 
into the array X. Part of the computer’s memory for this problem is sketched in Table 
9-1 below. Each column shows the list during each pass. A stroke (/) in a row indicates 
a change in that variable during the pass as the program works down the list. The 
number of tests (step 3.1.1) made on each pass is also shown in the table. Work through 
the table by hand with the structure plan until you understand how the algorithm works. 


Table 9-1. Computer memory during a bubble sort 





—_ 


Pass: l Zz 3 4 
X(1): 27/13 13/ 9 9/ 5 Sos 
X(2): 13/27/ 9 9/13/ § 5/ 9/ 3 3/3 
X(3): Q/27/ 5 5/15) 73 3/ 9 Q 
X(4): $/27/ 3 3/13 13 13 
X(5): 3/27 27 ay 2/ 
Tests: 4 3 2 | l 





Sorting algorithms are compared by calculating the number of tests they execute (as in 
step 3.1.1 in the structure plan), since this takes up most of the computer time during 


the sort. On the Kth pass of the Bubble Sort there are exactly N—K tests, so the total 
number of tests is 


1+24+3+4...+(N—1) = N(N-1)/2. 


For a list of five numbers there are therefore ten tests, but for ten numbers there are 45 
tests. The computer time needed goes up as the square of the length of the list. 


The program below uses a Bubble Sort to sort 100 random integers in the range 1 to 100 
(the RANDOMIZE and RND statements are discussed in Chapter 13). 


! Bubble Sort 


108 CHAPTER 9 





DIM X(1000) | Not more than 1000 numbers 
RANDOMIZE 
LET N = 100 
FOR | = 1 TON ! Generate random integers in the .. 
LET X(l) = INT( N * RND ) + 17 | .. range 1 to N to test 
NEXT | 
FOR K = 1 TO N-1 | N—1 passes 
FOR J = 1 TO N-K |! N—K comparisons on each pass 
IF X(J) > X(J+1) THEN 
LET TEMP = X(J) 
LET X(J) = X(J+1) 
LET X(J+1) = TEMP 
END IF 
NEXT J 
NEXT K 
FOR | = 1TON | Print them out in ascending order 
PRINT USING "####": X(I); 
NEXT | 
END 
This program would be impossible to write without an array. 


9.5. Order of Merit List 


A useful variation on the Bubble Sort is to produce an order of merit list for a class of 
students based on the results of a particular test. Given a set of students’ names and 
marks, the problem is to print the names and marks in descending order of marks. 


The Bubble Sort can obviously be used, as long as the names are read into a separate 
string array. But then we must take care to swop the names as well as the marks each 
time two marks need to be swopped, otherwise the marks in the final list will be correctly 
ordered, but they will be against the wrong names! Although this approach works Just 
as well on a large mainframe computer, the extra swopping involved can slow down a 
microcomputer enormously. For example, to produce an order of merit list for a class 
of 200 students on an Apple Ile microcomputer using this method takes about 17 
minutes (with a Street BASIC interpreter!). If there are additional data, such as other 
marks, ages, addresses, telephone numbers, etc., that also need to be swopped each 
time, the computer time increases astronomically. 

A more subtle approach is to use the concept of a pointer. Let us suppose we have five 


students in the class. Their names are read into a string array Name$, and their marks 
Into an integer array Mark. If the names (in alphabetical order) and marks are 


Alice 54 
Brian 3 
Charles 100 
Debby 4/7 


Ethel 78 
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then the arrays Name$ and Mark will have the contents 


Name$(1): “Alice” Mark(1): 54 
Name$(2): “Brian” Mark(2): 3 
Name$(3): “Charles” Mark(3): 100 
Name$(4): “Debby” Mark(4): 47 
Name§$(5): “Ethel” Mark(5): 78 


The master stroke now is to introduce a third array, List, the successive elements of 
which, after sorting, will give (point to) the position in the original alphabetical list of 
names of the student who is first, second, etc., in order of merit. To start with, before 
any sorting has taken place, the values of List should simply be 


List(1): 1 
List(2): 2 
List(3): 3 
List(4): 4 
List(5): 5 


After sorting, we want, for example, List(1) to have the value 3, to reflect the fact t.. 
the student who is first in order of merit (Charles) is in position 3 in the original 
alphabetical list. This will happen if, for successive values of J in the Bubble Sort, the 
condition in the test 1s 


Mark( List(J) ) < Mark( List(J+1) ), 


and List(J) is swopped with List(J+1) each time the marks are out of (descending) order. 
Note that neither the names nor the marks are actually swopped. 


Printing Name$( List(1) ) will then print the name of the top student, whose mark will be 
in Mark( List(1) ), andso on. This way, only the elements of List are swopped. The original 


contents of Name$ and Mark remain unchanged. In this example, the final values of List 
should be 


List(1): 3 
List(2): 5 
List(3): 1 
List(4): 4 
List(4): 2 


(Debby is fourth in order of merit and in alphabetical order.) This improvement 
approximately halves the computing time. A further reduction results from using a 
Quick Sort, and if the code is compiled (e.g. with True BASIC), the 20 minutes 
originally required for a list of 200 names can be cut down to less than 30 seconds. 


The program below will handle a class of up to 100 students. Note that uppercase letters 
are used only for keywords, while variable names are mixed upper- and lowercase. You 
may prefer to type your programs like this. (The DO FORMAT command will translate 
all keywords into uppercase for you.) 

| Order of Merit 


DIM List(100) | Order of Merit List 
DIM Mark(100) | Marks 
DIM Name$(100) | Names in original order 


LET N = 0 | Counter 
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DO WHILE MORE DATA 
LET N=WN + 1 
READ Name$(N), Mark(N) 


LET List(N) = N ! Initialize the List 


LOOP 

LET K = 0 

DO ! Outer loop of bubble sort 
LET Swops = 0 | No. of exchanges per pass 
LET K = K + 1 ! Count the passes 
FOR J = 1 to N—K ! Count the tests 


IF Mark( List(J) ) < Mark( List(J+1) THEN 
LET Temp = List(J) 
LET List(J) = List(J+1) 
LET List(J+1) = Temp 
LET Swops = Swops + 1 

END IF 

NEXT J 
LOOP UNTIL Swops = 0 | Must be sorted then 


FOR K=1 TON 
PRINT USING "<#########": Name$( List(K) ) 
PRINT USING” ###": Mark( List(K) ) 


NEXT K 


DATA Alice, 54 
DATA Brian, 3 
DATA Charles, 100 
DATA Debby, 47 
DATA Ethel, 78 
END 


The sorting mechanism here also differs from the one in the previous section in that the 
outer FOR-NEXT loop on K has been replaced by a DO loop which executes conditionally. 
The variable Swops is used as a flag to detect when the marks are actually sorted. This 
could save a great deal of unnecessary (and time consuming) comparisons, and is based 
on the observation that almost every list of numbers is already partially sorted. They are 
therefore likely to be fully sorted long before the maximum number of N—1 passes has 
been made. Swops, which counts the number of exchanges made during a pass, must be 
set to zero at the beginning of each pass. If it remains zero during a pass, the list must 
be sorted, and the loop stops. Note that DO-UNTIL is appropriate here, since at least one 
pass is required to see if the list is already sorted. 


9.6. Top of the Class 


The program in section 5.1 to find the student with the highest mark in a class assumes 
that there 1s only one such student. We need to use a list if there is likely to be more than 


one name at the top: 
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! Top of the Class 


DIM TopStudent$(100) 
LET TopMark = —1 
LET NumTop = 17 


Names of top students 
Initialize top mark 
NumTop students have the top mark 


DO WHILE MORE DATA 
READ Name$, Mark 


Read the names and marks 


IF Mark > TopMark THEN 

LET TopMark = Mark 

LET NumTop = 1 

LET TopStudent$(1) = Name$ 
ELSE IF Mark = TopMark THEN 

LET NumTop = NumtTop + 1 

LET TopStudent$( NumTop ) = Name$ 


New top mark here 
Reset top mark 

Reset top student counter 
Start new list 

Tie for top mark here 
Advance counter 

Add his name to the list 


END IF 

LOOP 

FOR | = 1 TO NumTop | Print out top students 
PRINT USING "<###### ###": TopStudents(l), TopMark 

NEXT | 


DATA JONES, 58 
DATA SMITH, 72 
DATA ROGERS, 72 
DATA JACKSON, 72 
DATA BOTHA, 90 
DATA MURRAY, 90 
END 


As an exercise run through the program by hand with the data as given. Note that at the 
end, the name “JACKSON” will still be in the array TopStudent$ (at position 3), but his 


name will not be printed because the ‘“‘pointer’” NumTop has been reset to 2, and will 
prevent this. 


J.7. Updating Student Marks Again 


In section 8.5 we considered how to write names to a text file on a diskette, and then how 
to write one set of marks to the file. However, the program that sends marks to the file 
cannot be used exactly as it stands to record the results of a second test. Lhe part of that 
program that read names from the Marks file, and wrote names and marks to the 
scratch file, has the following statements: 


INPUT #1: NAMES$ 
INPUT PROMPT "Mark: ”": MARK 
PRINT #2: NAMES: ”,”; MARK 


Since we don’t want to lose the first mark when entering the second mark, we would now 
have to write something like 
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INPUT #1: NAME$, MARK? 

INPUT PROMPT "Mark: ”: MARK2 

PRINT #2: NAME$, MARK1, MARK2 

But then similar changes need to be made to enter a third set of marks. The program 
that prints the names and marks would also have to be amended every time another set 
of marks was entered. 

A much better solution is to write a general purpose program that uses the first Offerings 
elements of an array Mark, say, to read the existing marks for each student from the file, 
and inputs the latest mark into the element Mark(Offerings+1), which is written back to 
the file with all the other marks. This way the same program can be used over and over 
to update the student marks. The file will need some extra information, however, viz. 
the number of tests (or offerings) currently in the file. For good measure we may as well 
also record in the file the maximum mark for each offering, since these won’t all 


necessarily be the same. 

Before we start, the program that initially writes the names to the file needs to be 
amended to record the current number of offerings (none to start with) in the first line 
of the file. The new initializing program is then as follows: 


| Writes names to text file "Marks. Txt’ 


OPEN #1: NAME "B:Marks.Txt’, ORGANIZATION TEXT, CREATE NEW 
LET Offerings = 0 | No. of offerings is zero at first 
PRINT #1: Offerings ! In the first line of the file 
INPUT PROMPT "Name: ": Name$ 


DO WHILE Name$ <> "SNOOPY” 
PRINT #1: Name$ 
INPUT PROMPT "Name: ”": Name$ 
LOOP 


CLOSE #1 
END 


Ok. run 

Name: ABLE ER 
Name: BOTHA BJ 
Name: SMITH ZZ 
Name: SNOOPY 
The names will be in the file ‘““Marks.Txt” on the diskette in drive B. Note that an 
optional extension of ‘“Txt’’ is used to remind us that it is a text file. If you look at the 
file on the screen you will see that the first line contains a single zero. 
The general purpose program to enter any number of offerings is below. It also 
illustrates the use of error handlers to check that the Marks file exists, and that the 


Scratch file doesn’t. The user is able to enter any names for these files. You should try 
this out with some wrong filenames, to convince yourself that the error handlers prevent 


the program from crashing. 


! Updates Student marks with new offering 
! Also demonstrates use of Error Handler 
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DIM Max(20) ! Maximum for each offering 

DIM Mark(20) ! Each student's set of offerings 

CLEAR 

PRINT "Updating Student Marks ...” 

PRINT 

INPUT PROMPT "Which disk drive (A or B)?”: Drive 

DO | First make sure that Marks file exists 
LET Err = 0 | Flag to detect error 


WHEN ERROR IN 

INPUT PROMPT "Name of Student Marks file? ”: Marks$ 

LET Marks$ = DriveS &":” & Marks$ 

OPEN #1: NAME Marks$, ORGANIZATION TEXT, CREATE OLD 
USE 

PRINT "Sorry, "; ExText$ 

PRINT "Please try again” 


LET Err = 1 
END WHEN 
LOOP UNTIL Err = 0 ! No error occurred 
DO |! Then make sure that Scratch file doesn't 
LET Err = O ! Flag 


WHEN ERROR IN 

INPUT PROMPT "Name of Scratch file? ”: Scratch$ 

LET Scratch$ = Drive$ &":” & Scratch$ 

OPEN #2: NAME Scratch$, ORGANIZATION TEXT, CREATE NEW 
USE 


PRINT "Sorry, "; ExText$ 
PRINT "Please try again” 


Let. Eros. 4 
END WHEN 
LOOP UNTIL Err = 0 !' No error occurred 
INPUT #1: Offerings |! First get number of offerings ... 
FOR | = 1 TO Offerings |... then get the maxima 
INPUT #1: Max(I) 
NEXT | 


INPUT PROMPT "Maximum for new offering: ”: MaxNew 
LET Max( Offerings + 1 ) = MaxNew 


PRINT #2: Offerings + 1 | Write new no. of offerings ... 
FOR | = 1 TO Offerings + 1 |... and maxima to Scratch file 
PRINT #2: Max(l) 
NEXT | 
DO WHILE MORE #1 ! Now get names and old marks ... 
INPUT #1: Name$ |... That's his name 
FOR | = 1 TO Offerings 
INPUT #1: Mark(l) |... and them’s his old marks 
NEXT | 


PRINT USING "<########## Mark.” Name$; 
INPUT PROMPT "”: Mark( Offerings +1) ! Get new mark ... 
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PRINT #2: Name$ | ... and write his name 
FOR | = 1 to Offerings + 1 ! ... and all his marks to Scratch 
PRINT #2: Mark(I) 
NEXT | 
LOOP 
ERASE #1 ! Delete contents of Marks file 
RESET #2: BEGIN ! Reset pointer so we can read Scratch 
DO WHILE MORE #2 ! Copy Scratch into Marks 


LINE INPUT #2: Lined 
PRINT #1: LineS 


LOOP 

CLOSE #1 ! Shut down 
CLOSE #2 

UNSAVE "B:SCRATCH.” |! Sink without trace 
END 


The history of a typical run could look something like this: 


Which disk drive (A or B)? b 

Name of Student Marks file? Marks. 
sorry, No such file. 

Please try again 

Name of Student Marks file? Marks.txt 
Name of Scratch file? Scratch. 
Maximum for new offering: 100 

ABLE ER Mark: 98 

BOTHA BJ Mark: 43 

SMITH ZZ Mark: 76 


If you look at the file on the screen, you will see that each line has only one entry. This 
is because INPUT from a file doesn’t allow you to have too many or too few data items 
on aline, as it does from the keyboard. The only way to avoid errors is to have one item 
per line. This could be a waste of diskette space. Text files are also rather cumbersome 
to edit from within a program, since they must be completely rewritten. We will see in 
Chapter Ten how to write a more economical program using a record file instead. The 
advantage of text files, however, is that the programs are fairly easy to write, and you 
can examine (and edit) the files on the screen. They are best used for input only, or 
output only, where no editing is required. 


We now need a second general purpose program to read the file and print the names and 
marks on the screen (you can add details like error handlers if you like): 


! Displays Student Marks File on screen 


DIM Max(20) 

DIM Mark(20) 

OPEN #1: NAME “B:Marks.Txt’, ORGANIZATION TEXT, CREATE OLD 
INPUT #1: Offerings ! Get number of offerings ... 


FOR | = 1 to Offerings |... and their maxima 
INPUT #1: Max(l) 
NEXT | 
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CLEAR 


LET FormatName$S = "############" 
LET FormatMark$ = "####" 
PRINT USING FormatName$: “Max Mark:”: 


FOR | = 1 TO Offerings 
PRINT USING FormatMark$: Max(l); 
NEXT | 
PRINT 
PRINT 


DO WHILE MORE #1 
INPUT #1: Name$ 
PRINT USING FormatName$: Name$; ! ... and print them 
FOR | = 1 TO Offerings 

INPUT #1: Mark(I) 


PRINT USING FormatMark$: Mark(l); 
NEXT | 


PRINT 
LOOP 


CLOSE #1 
END 


! Now get names and marks ... 


After entering one more offering, the output of this program could look something like 
this: 


Max Mark: 100 25 
ABLE ER 98 12 
BOTHA BJ 43 0 
SMITH ZZ 76 23 


These programs could all be subroutines (see Chapter 11) of a larger ““menu-driven”’ 
program which asks you whether you want to enter a new offering, display the current 
marks, change marks, etc. It is also fairly straightforward to add sections to analyse 
results of a particular offering by computing the mean and standard deviation, counting 


the number of first class passes, percentage pass rate, etc., and printing a bar chart of 
the results. 


Summary 


An array is a collection of subscripted variables with the same name. 


* Members of an array are called elements. 


* Arrays are useful for representing and processing large amounts of data. 


The subscript bounds must be declared in a DIM statement before the array is used. 
A subscript may not exceed these bounds. 


Entire arrays may be input and output with special MAT statements. 


Arrays may be explicitly redimensioned with the MAT INPUT, MAT LINE INPUT, and 
MAT READ statements. 
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EXERCISES 

9.1 IfNUM isa True BASIC array write the lines of coding which will 
(a) put the first 100 non-negative integers (0, ... , 99) into the elements NUM(0), 

...y NUM(99); 
(b) put the first 50 positive even integers (2, ... , 100) into the elements NUM(1), 
...y NUM(50). 

9.2 Write some statements which put the first 100 Fibonacci numbers (1, 1, 2, 3, 5, 
8, ... ) into an array F(1), ... , F(100). 

9.3. Write a program which will read in a number (assumed less than 31, say) and print 
its binary representation on one line with no blanks between the digits. Hint: 
store each binary digit in a different element of an array. 

9.4 A prime number is one which is exactly divisible only by itself and 1 (e.g. 5, 17, 
53). Develop a structure plan for the problem of printing all the primes less than 
1 000 (1 and 2 are generally regarded as primes, and will probably have to be dealt 
with separately). Hints: (1) use an array to store the primes as they are found; 
(2) to save computer time, use the fact that if a number has no factors less than 
Its Square root, it has none greater than its square root. 

9.5 Write the program for Ex. 9.4. 

9.6 A formula, called Zeller’s Congruence, may be used to compute the day of the 
week, given the date (within a certain range of dates). The formula 1s 


f= ( [2.6m — 0.2] +k + y + [y/4] + [c/4] — 2c ) mod 7, 


where the square brackets mean “the integer part of’, mod means “integer 
remainder when divided by’’, and 


m = month number, with January and February taken as months 11 and 12 of the 
preceding year, so March is then month 1, and December month 10; 


k = day of the month; 
c = first two digits of the year (i.e. the century number); 
y = year in the century. 


E.g. 23rd August 1963 has m = 6, k = 23, c= 19, y = 63; Ist January 1800 has 
m=1ll,k=1,c=17,y=99. 


Write a program to read the date in the usual form (e.g. 30 9 1986 for 30th 
September 1986) and print out the given date and the day of the week (in words) 
on which it falls. Hint: use a string array for the days of the week. Test your 
program on some known dates, like today’s date, or your birthday, or 7th 
December 1941 (Pearl Harbour Sunday). 


The formula will not work if you go too far back. Shakespeare and Cervantes both 
died on 23rd April 1616. Shakespeare died on a Tuesday, but Cervantes died on 
a Saturday! This is because England had not yet adopted the Gregorian calendar 
and was consequently ten days behind the rest of the world. The formula will also 
not work if you go too far forward, but I haven’t been able to find out exactly how 


far. 
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9.7 


9.8 


In an experiment N pairs of observations (X;; Y;) are made. The best straight line 
that may be drawn through these points (using the method of Least Squares) has 
intercept A on the X-axis and slope B, where 


B = (S; — SS3/N) / (Sq — S/N), 
A= S3/N —- S2oB/N, 


S;=2 X7Y;, 
So = 2 X;, 
$3=2 Y;, 
S4= = Xj. 


The correlation coefficient R is given by 
NS, was $583 
~ V(NS4 — S22) V(NS5 — S32)’ 


ce 
where Ss = 2 Y;-. 


R 


( = 1 implies a perfect linear relationship between X and Y. This fact can be 
used to test your program.) All the summations are over the range 1 to N. Each 
pair of observations is stored in one line of a text file ““Expt.Txt” in drive B. It 


is not known how many observations there are. Write a program to read the data 
and compute A, B and R. 


If a set of points (X;; Y;) are joined by straight lines, the value of Y corresponding 
to a value X which lies on a straight line between X; and Xj+, 1s given by 
(Yi44 eas Y;) 
Y= Y; + (X¥ — X;) ———————. 
(Xi+1 — Xi) 


This process is called linear interpolation. Suppose no more than 100 sets of data 
pairs are stored, in ascending order of X;, one pair to a line of a text file 
‘“Raw.Txt” in drive B. Write a program which will print an interpolated value of 
Y given an arbitrary value of X keyed in at the keyboard. It is assumed that X is 
in the range covered by the data. Note that the data must be sorted into ascending 


order with respect to the X; values. If this were not so, it would be necessary to 
sort them first. 
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In this chapter we look at some more advanced features of strings. This will also enable 
us to discuss the two other kinds of files: record and byte files. 


10.1. Sorting Strings 


Strings (e.g. words or names) can be arranged very easily into alphabetical order in True 
BASIC. It has a lexical collating sequence such that the string N$ is “‘less than” the string 
M$ if N$ is alphabetically ahead of M$. The following program segment inputs two words 
and prints them out in alphabetical order: 


INPUT PROMPT "Give me two words:”: A$, B$ 
IF AS < BS THEN PRINT AS, BS ELSE PRINT B$, A$ 


True BASIC uses the ASCII (American Standard Code for Information Interchange) 
lexical collating sequence, which is set out in full in Appendix D. The sequence is based 
on the computer’s internal binary representation of its character set. The ASCII codes 
for the letters ‘A’ to “Z”’ are the consecutive integers 65 to 90, while the codes for “ae 
to “z” run from 97 to 122. This sensible arrangement allows for alphabetical sorting, 
because the following logical expressions, for example, are all true: 

"AY" <="B" 

SA <A" 

"AO" < "AA" 

"MCBEAN’” < "McBEAN” 

"MC BEAN” < "MCBEAN” 


Note that the space precedes “A” in the collating sequence, and that the Upperta- 
letters all precede the lowercase ones. The apostrophe (’) in turn precedes the space, 
so that "O’'DEARE” precedes "O DEARE"”. 


As an exercise amend the Bubble Sort in section 9.4 to sort words instead of numbers. 
You will need to replace every X by X$, and TEMP by TEMP$ (use the CHANGE command 
to do this quickly). You will also have to read the words in (instead of generating 


random numbers), and change the PRINT statement to print the sorted words one to a 
line. 


The built-in function CHR$ may be used to convert a number into the character coded 
by that number. E.g. the following program segment prints the alphabet in lowercase: 
FOR | = 97 TO 122 


PRINT CHRS( | ): 
NEXT | 


120 CHAPTER 10 





CHR$ returns the ASCII coded characters for codes 0 to 127, which are the same on all 
computers using ASCII code. The codes from 128 to 255 may give different characters 
for different types of computer, and you should consult your own computer manual for 
these. The extended codes for the IBM PC are also given in Appendix D. 


The built-in function ORD takes a single character string as an argument and returns the 
code for that character, e.g. 


Ok. PRINT ORD("&” ) 
38 


The GET KEY statement waits for a key to be pressed, and returns the numeric code for 
that character (if it has one) without waiting for you to press Return. The character is 
not automatically displayed on the screen. This 1s useful for extracting single-letter 
options from a nervous user who might not be able to find the Return Key too easily. See 


section 11.4 for an example. The syntax is 


GET KEY var 


10.2. String Expressions and Substrings 


The only string operator is the ampersand (&), which may be used in string expressions 
to concatenate. E.g. the string expression 


"ich” & "thus" 
produces the result “‘ichthus”’ (Greek for “‘fish’’). 


A substring of a string expression may be taken by following the string by [a:b], where 
a indicates the starting position of the substring, and b the ending position. E.g. 


Ok. PRINT "Napoleon’[3:6) 

pole 

If a < 1, the start of the string is used, and if b is greater than the length of the string, 
the length of the string is used, e.g. X$[l:MaxNum] will get the rest of string X$ from 
position | onward. The [a:b] mechanism can be used on any string expression, and 
parentheses can be used to control the order of evaluation. E.g¢. 


Ok. PRINT “NAPOLEON” & "BONAPARTE"(7:11] 


NAPOLEONRTE 
Ok. PRINT (“NAPOLEON” & “BONAPARTE”)[7:1 1] 


ONBON 
Substrings may be assigned or changed with the LET statement: 


LET X$[i:j] = expr$ 

This replaces the ith to jth characters (inclusive) of X$ with the given string expression. 
If1 <1, 1 1s used, and if j is beyond the end of the string, the end of the string is used. 
If i > J, the given expression is inserted before the ith position, and nothing is deleted. 
Characters may be deleted from a string by assigning the null character ("”) to a 
substring of the string. These operations are illustrated below. 
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Assignment Result 

LET X$ ="APPLE” “APPLE” 
LET X$[3:4] =" " "APE" 

LET X$[1:0] = ”N” "NAPE" 

LET X$[5:MaxNum] = "LEON "NAPELEON” 
LET X$[4:4] = "oO" “NAPOLEON” 
LET X$[4:6] = "PyY” "NAPPYON” 


Note that in the last example, where the target substring ““OLE” is replaced by the 
shorter string “‘PY”’, the last character of the target is deleted. 


For compatibility with ANS BASIC, round parentheses, “‘()’’, may be used instead of 
square ones, “‘{]’’, for substring notation. 


10.3. Record Files 


Record files consist of a series of “‘boxes” or records, each of which can hold either a 
numeric or string constant. The records are individually numbered, starting from 1. The 
file pointer may be moved to any record in the file. Unlike text files, recordsina record 
tile may be read or written in any order, and particular records may be overwritten. 
Each record in the file must be no longer than a certain length, called the record size. 
This may be set by the RECSIZE option in the OPEN statement. Record size is measured 
in bytes (characters), and numbers take up eight bytes. The following program writes 
a set of three names to a record file (the optional extension “REC” is used to indicate 
a record file) 

! EXAMPLE OF A RECORD FILE 

OPEN #1: NAME "B:DUMMY.REC”, ORGANIZATION RECORD, ... 


.. RECSIZE 20, CREATE NEWOLD 


READ NAME$, MARK 


WRITE #1: NAME$, MARK 
NEXT | 


DATA ABLE ER, 98, BOTHA Bu. 43, SMITH ZZ, 76 

END 

The NAME. ORGANIZATION, ACCESS and CREATE options in the OPEN statement 
(which should be on one line) are discussed in section 8.5. RECSIZE specifies the record 
size (in bytes). If the record size of an existing file doesn’t match, an error OCCcuIS. If the 
file is empty, this option establishes the record size. The record size may be set by a 
subsequent SET RECSIZE statement after the file contents has been erased (see below). 


The WRITE statement is the only way to write data to a record file. After each item 1s 
written, the file pointer is advanced one position. In this example, six records were 
written, with the following contents: 


Record Number Contents 
1 “ABLE ER” 
2 98 


5 “BOTHA BJ” 
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4 43 
5 “SMITH ZZ” 
6 76 


Because of the way record files are stored, they cannot be viewed directly on the screen. 
(You can try, but it won’t make sense.) This makes them generally faster to read and 
write than text files. They can be accessed directly from the command line with READ 


statements: 

Ok. OPEN #1:"B:DUMMY.REC" 
Ok. READ #1: N$, MK 

Ok. PRINT NS; MK 

ABLE ER 98 


READ is the only way to get data from a record file. The file pointer will now be pointing 
to record 3. To re-read from the second record use a SET statement to reposition the 
pointer: 


Ok. SET #1: RECORD 2 
Ok. READ #1: MK, N$ 
Ok. PRINT MK, N$ 

98 BOTHA BJ 


The important point to remember is that the pointer always points to the next record to 
be read or written. Each time an item is read or written, the pointer advances by one 
position. True BASIC allows you to use RESET instead of SET (which is ANS BASIC 
compatible). 

Note that an item which was written to the file as a string must be read as a string, and 
similarly for numeric items. However, there is nothing to stop a string from being 
subsequently replaced by a number, and vice versa. 

If a record file exists but is empty, its record size may also be set by a SET RECSIZE 
statement. The record size may be no greater than 16777215 bytes, and the entire record 
file may be no greater than 32 million bytes. 


The general forms of these statements are: 


READ #expr: item, item2, ... 
SET #expr: RECORD pos | reset the pointer to any record 


SET #expr: RECSIZE size 
WRITE #expr: item, item2, ... 


The following ASK statements are available for record files (in addition to the ones 
mentioned in section 8.5): 


ASK #expr : RECORD var ! current pointer position 
ASK #expr: RECSIZE var ! file's record size in bytes 


Multiple Items in a Record 


For many applications it is unsuitable to keep only one item in a record. It becomes 
difficult to keep track of data. In the above example you have to remember that the 
second student's mark is in the fourth record. If there were more marks per student, the 


ADVANCED STRINGS 123 


ee 


situation would be even more complicated. Furthermore, the records must be the same 
s1Z€, SO Space is wasted if numbers and strings are mixed, since strings usually take up 
more space. The solution is to pack multiple items into one record. We will see how to 
do this by reworking the student mark example of Chapter Nine using a record file. 


We want each record to hold not only the student’s name, but also a set of up to five 
marks. This can be done if the record is one long string with the name and marks 
embedded. The built-in function Num$ can be used to convert a number into a string 
containing its standard IEEE eight-byte internal representation (which is the same for 
all computers). These strings are not meant to be printed on the screen, and will look 
rather strange if you try to. In this way, all the marks can be converted into strings and 
concatenated with the name to give one long string. The student’s name and marks are 
then all in one record. To read the record, the substring with the representation of each 
mark can be extracted and converted back into a number with the Num function. 


We start by writing a list of names to a record file ““Mark.Rec’’. We will allow 20 bytes 
for each name. Five marks each needing eight bytes will occupy a further 40 bytes. The 
record size should therefore be 60 bytes. The first record contains the number of 
offerings (zero at first), which is also to be converted into a string. 


| Writes names to a record file 


OPEN #1: NAME ”B:Mark.Rec”, ORGANIZATION RECORD, RECSIZE 60, ... 
... CREATE NEWOLD 
LET Offerings = 0 
WRITE #1: Num$( Offerings ) ! No. of offerings in ist record 
CLEAR 
INPUT PROMPT "Name:": Name$ 
DO WHILE Name$ <> "SNOOPY” 


LET Name$ = ( Name$ & Repeat$("", 20 ) )[1:20] 
WRITE #1: Name$ 


INPUT PROMPT "Name: ”: Name$ 
LOOP 


! Now check by reading names back and printing them 
PRINT 


PRINT "Reading back ...” 
SET #1: RECORD 2 1 ist name is in 2nd record 


DO WHILE MORE #1 
READ #1: Nam$ 
PRINT Nam$ 

LOOP 


CLOSE #1 
END 


The rather awesome statement 
LET Name$S$ = ( Name$ & Repeat$(”"”, 20 ) )[1:20] 


makes sure that no name will take up more than 20 bytes. 20 spaces are added to the end 
of the name (since its exact length is unknown), and the substring operation takes the 
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first 20 characters of the result. This is much easier than laboriously adding the right 
number of spaces at the end of each name as it is typed in. Names that are longer than 
20 characters are simply truncated. 


The names are read back again and printed as a check. Note that the pointer must be 
reset to record 2 before this can be done (the first record holds the number of offerings). 


The next program reads the record file, displays each name, and allows a mark to be 
input from the keyboard. The new mark is packed into the record with the name and 
previous marks. (There is no need to unpack the previous marks. ) 


| WRITES AN OFFERING TO A RECORD FILE 


OPEN #1: NAME "B:Mark.Rec” ! Organization and size established 
READ #1: Line$ | First record 

LET Offerings = Num( Line$[1:8] ) |! Unpack no. of offerings 

LET Offerings = Offerings + 1 

LET Line$[1:8] = Num$( Offerings ) | Pack in new no. of offerings 
CLEAR 

INPUT PROMPT "Maximum mark for new offering: ”: Max 

LET Line$ = Line$S & Num$( Max ) ! Pack in latest maximum 

SET #1: POINTER SAME | Move pointer back ... 


WRITE #1: Line$ | ... and rewrite 1st record 


DO WHILE MORE #1 
READ #1: Line$ 


LET Name$ = Line$[1:20] |! Unpack name 
PRINT Name$; | Print it 
INPUT PROMPT "Mark: ”: Mark |! Get mark from keyboard 
LET Line$é = LineS & Num$( Mark ) ! Pack it in 
SET #1: POINTER SAME ! Move pointer back 
WRITE #1: Line$S |! Rewrite the record 
LOOP 
CLOSE #1 ! and that’s that! 
END 


This example illustrates how easy it is to rewrite record files. The main point to note 1s 
that after a record has been read, the pointer automatically advances to the next record, 
so it must be moved back to the original record. Otherwise the wrong record will be 
rewritten, with disastrous consequences! The SET POINTER statements can be used to 


position the pointer as follows: 


SET #expr: POINTER BEGIN ! to record 1 

SET #expr: POINTER END ! just past last record 

SET #expr: POINTER NEXT | skips current record 

SET #expr: POINTER SAME | allows re-use of current record 


These statements are ANS BASIC compatible, but True BASIC allows you to shorten 
them to 


RESET #expr: BEGIN 
RESET #expr: END letc, etc. 


The following program reads the record file and displays the names and all the offerings 
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under suitable headings. The first line contains the number of offerings in the first eight 
bytes (Line$[1:8]). This must first be unpacked with the Num function before the offering 
maxima can be unpacked from substrings [9:16], [17:24], etc., of Line$. A similar process 
unpacks each student’s marks from substrings [21:28], [29:36], etc., of the subsequent 
records. The SET COLOR statement, discussed more fully in Chapter 12, is used to 
highlight the filename on the screen. 


| DISPLAYS NAMES AND MARKS FROM RECORD FILE 
LET File$é =”"Mark.Rec” 

OPEN #1: NAME "B:” & File$ 

CLEAR 

PRINT "Reading Student record file"; 

SET COLOR "black/white/blink” 


PRINT Files Some fancy text 
SET COLOR “white/black” 

PRINT 

LET FmtName$ = "<”" & Repeat$("#”", 20 ) 


LET FmtMark$ = "####" 
PRINT USING FmtName$: "Maximum mark:’; 


READ #1: LineS Start reading the file 
LET Offerings = Num( Line$[1:8] ) lUnpack no. of offerings 
LET Start = 9 
FOR | = 1 TO Offerings 
LET Max = Num( Line$[Start: Start + 7]) | !Unpack maxima.. 
PRINT USING FmtMark$: Max; land print them 
LET Start = Start + 8 
NEXT | 
PRINT INew line 
PRINT 


DO WHILE MORE #1 
READ #1: Line$ 
PRINT USING FmtName$: Line${1:20]; [Unpack and print name 
LET Start = 21 
FOR | = 1 TO Offerings 
LET Mark = Num( Line$[Start: Start + 7]) !Unpack marks .. 
PRINT USING FmtMark$: Mark; l..and print them 


LET Start = Start + 8 
NEXT | 


PRINT INew line 
LOOP 


CLOSE #1 
END 
A Binary Search for Students 


In Chapter Nine we saw how to sort numbers and words. Items are invariably sorted in 
order to be able subsequently to search through them for a particular item. An obvious 
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(and easy) method of searching is to go through the list of items one by one comparing 
them with the search item. The process stops either when the search item is found, or 
when the search has gone past the place where the item would normally be (e.g. its 
alphabetical position). This is called a linear search. Its disadvantage is that it can be 
very time consuming if the list is long. A much more cunning method is the binary 
search. 


Suppose you want to find the page in a telephone directory that has a particular name 
on it. A linear search would examine each page in turn from page 1 to determine 
whether the name is on it. This could clearly take a long time. A binary search Is as 
follows. Find the middle of the directory (by consulting the page numbers), and tear it 
in half. By looking at the last name in the lefthand half (or the first name in the righthand 
half), determine which half the required name is in. Throw away the unwanted half, and 
repeat the process with the half that contains the name, by halving it. After a 
surprisingly low number of halvings, you will be left with one page containing the 
required name. Although this can be a little heavy on telephone directories, it illustrates 
the principle of a binary search quite well. 


The method is also very efficient. For example, the 1986/87 Cape Peninsula directory 
has 1116 pages with subscribers’ names and numbers. Since the method halves the 
number of pages each time, the number of halvings (or bisections) required to find a 
name will be the smallest power of 2 that exceeds 1116, 1.e. 11, since 


2'9 = 1024 < 1116 < 2! = 2048. 


The smart way to find the maximum number of bisections N required is to observe that 
N must be the smallest integer such that 


2" > 1116, 
LG: N >log>(1116). 
In the worst possible case, the required name would be the last one in the directory 


(Zywica). A linear search would involve examining all 1 116 pages, whereas a binary 
search requires you to look at only 11 pages! 


Suppose our student marks file ‘‘Mark.Rec”’ contains Size records altogether. The first 
one contains the offering maxima, and all subsequent ones contain one name each, 
assumed in alphabetical order. We would like to search for a given student, in order to 
be able to view his marks, and change them if necessary. A binary search through the 
file must try to find the record number (Mid) of the required student’s name (Item$). The 
lower and upper bounds of the record numbers for the search are Lo and Hi respectively. 
Mid 1s the average of these two values. Successive bisections change the value of either 
Lo or Hi, keeping the alphabetical position of Item$ between these bounds each time. 
Since each bisection takes the integer part of Mid, the starting value of Hi must be 1 more 
than the last record number, or the last student can never be found. The maximum 
number of bisections required, NumBis, is found as described above. The coding for the 
actual binary search is as follows: 

LET NumBis = Int( Log2( Size —1))+1  ! Max no. of bisections 

LET Lo=2 | 1st name is in 2nd record 

LET Hi = Size + 1 | Last name + 1 
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DO 
LET Mid = Int( (Hi + Lo) /2) 
SET #1: RECORD Mid 
READ #1: Line$ 
LET Mid$ = Line$[1:20] 
IF Item$ = Mid$ THEN 


! Now for the search proper 
! 1st bisection 

| Move to record Mid .. 

! .. and read it 

! Unpack name 


LET Found = 1 | BINGO! 
ELSE IF Item$ < Mid$ THEN 

LET Hi = Mid | {t's in the 1st half 
ELSE 

LET Lo = Mid | It's in the 2nd half 
END IF 


LET Count = Count + 1 
LOOP UNTIL Found = 1 OR Count = NumBis 


The DO loop continues until either the name is found, or the maximum number of 


bisections have been performed. If Found = 0 when the loop ends, the name could not 
be found. 


The following program, which is the most complicated one so far in this book, uses this 
search procedure to find a student’s name. The marks are unpacked and displayed, and 
the user is given the option of changing the marks. The changed marks are displayed 
again, and the user may go on changing them. When no further changes are required, 
the marks are packed up and the record Is rewritten. The user is then allowed to search 
for another name. The program uses the ASK CURSOR and SET CURSOR statements to 
create a more pleasing display. The main part of the program is rewritten more 
efficiently as a subroutine in section 11.6. 


| Binary search through record file; option to change marks 
DIM Max(20) 

DIM Mark(20) 

OPEN #1: NAME "B:Mark.Rec” 

ASK #1: FILESIZE Size 

LET NumBis = Int( Log2( Size—1)) + 1 
LET FmtName$ ="<" & RepeatS( "#”, 19 ) 
LET FmtMark$ = "####" 


No. of records 

Max no. of bisections 
Format item for names 
. and for marks 


READ#1: Line$S | Read first line | 
LET Offerings = Num( Line$[1:8] ) | Unpack no. of offerings 
LET Start = 9 
FOR | = 1 TO Offerings , 

LET Max(l) = Num( Line$[Start: Start + 7] ) | Unpack maxima.. 

LET Start = Start + 8 
NEXT | 
DO | Main loop 

CLEAR 

SET COLOR "black/white/blink” | Heading 


SET CURSOR 5, 30 
PRINT “SEARCH AND CHANGE” 
SET COLOR "white/black" 
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PRINT 

INPUT PROMPT "Do you want to search (Y/N)?”: Ans$ 

LET Ans$ = Ucase$( Ans$ ) 

IF Ucase$( Ans$ ) ="Y" THEN | Initialize for search 
INPUT PROMPT "Name and initials? ”: Item$ 


LET Item$ = (Item$ & Repeat$("”, 20 ))[1:20] Pad with spaces 
LET Count = 0 | Bisection counter 


ltem not found yet 


LET Found = 0 

LET Lo = 2 | ist name is in 2nd record 
LET Hi = Size + 1 | Last name + 1 

DO Now for the search proper 


1st bisection 

Move to record Mid .. 
. and read it 

Unpack name 


LET Mid = Int( (Hi + Lo) / 2 ) 
SET #1: RECORD Mid 

READ #1: Line$ 

LET Mid$ = Line$[1:20} 

IF Item$ = Mid$ THEN 


LET Found = 17 | BINGO! 
ELSE IF Item$ < Mid$ THEN 

LET Hi = Mid | It's in the ist half 
ELSE 

LET Lo = Mid | It’s in the 2nd half 
END IF 


LET Count = Count + 1 
LOOP UNTIL Found = 1 OR Count = NumBis 


IF Found = 1 THEN | Display details and .. 
PRINT | .. allow changes 
PRINT TAB( 20 ); 

FOR | = 1 to Offerings ! Label Offerings 
PRINT USING FmtMark$: |; 

NEXT | 

PRINT 

PRINT USING FmtName$: “Maximum marks:”; 

FOR | = 1 to Offerings | Print maxima 
PRINT USING FmtMark$: Max(I); 

NEXT | 

PRINT 

LET Start = 21 ! Now unpack marks 


FOR | = 1 TO Offerings 
LET Mark(l) = Num( Line$[Start: Start + 7] ) 
LET Start = Start + 8 


NEXT | 

PRINT 

ASK CURSOR line, column | Find cursor position 
DO | Editing loop 


SET CURSOR line, column 
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FOR | = 1 70 8 


PRINT Repeat$(””, 80 } | Blank out next 8 lines 
NEXT | 

SET CURSOR line, column | Put cursor back again 
PRINT USING FmtName$: Item$; | Print name .. 

FOR | = 1 to Offerings | .. and marks 

PRINT USING FmtMark$: Mark(\); 

NEXT | 

PRINT 

PRINT 


INPUT PROMPT "Do you want to change a mark (Y/N)?”: Yes$ 

LET Yes$ = Ucase$( Yes$ }) 

IF Yes$ ="Y" THEN | Allow change to mark 
INPUT PROMPT "Column of mark to be changed:”: Col 
INPUT PROMPT "New mark:”: Mark( Col ) 

END IF 

LOOP UNTIL Yes$ ="N’ 


LET LineS = lItem$ | Now pack up name .. 
FOR | = 1 TO Offerings 
LET Line$ = Line$S & Num$( Mark(\) ) | .. and marks 
NEXT | 
SET #1: RECORD Mid | Move pointer back so we rewrite .. 
WRITE #1: Line$ | .. the right record!! 
ELSE 
PRINT Rtrim$( Item$) ;” not found — press any key to try again” 
GET KEY zzz 
END IF 
END IF 
LOOP UNTIL Ans$ ="N" 
CLOSE #1 


END 


If the file is very long, reading from the diskette during the search may slow it down 
considerably. In this case, the records should first be read into a string array. The search 
can then be made on the array element numbers, instead of on the record numbers. This 
point illustrates the fact that a record file with all records of the same type 1s exactly 
analogous to an array. 


10.4. Byte Files 


Byte files enable you to get at the data in a file byte by byte, and as such are probably 
more useful to the experienced programmer than the novice. They are opened, closed, 
erased and reset like any other kind of file, and are accessed with READ or WRITE 
Statements. 


Only bytes from a string expression may be written into a byte file (the file’s record size 
is not relevant to WRITE): 
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WRITE #expr: expr1$, expr2$, ... 

Bytes from a byte file may only be read into string variables. By default, they will be 
read in units as long as the file’s stated record size (to be given in bytes). However the 
file’s record size may be overridden by a SET RECSIZE statement for the purposes of 
reading: 

SET #expr: RECSIZE size ! size in bytes 

READ #expr: varl$, var2$, ... 

Alternatively, you may specify the number of bytes to be read in the READ statement 
(this is more flexible): 

READ #1, BYTES size: varl$, var2§, ... 

Different READ statements in the same program may therefore specify different 
numbers of bytes to be read. 

The following program writes the letters of the alphabet to a byte file in one string, and 
reads them back into seven-byte strings: 


! Example of Byte file 
OPEN #1: NAME "B:File.Byt”, ORGANIZATION BYTE, CREATE NEWOLD 


FOR | = 65 TO 90 
LET A$ = AS & ChrS | ) 
NEXT | 


WRITE #1: A$ 
SET #1: POINTER BEGIN 


FOR | = 1 TO 4 
READ #1, BYTES 7: X$ 
PRINT X$ 

NEXT | 


CLOSE #1 
END 


Ok. run 
ABCDEFG 
HIJKLMN 
OPQRSTU 
VWXYZ 


Note that fewer bytes can be read than were specified. 


Byte files are useful for storing large amounts of data, since no space is wasted. The next 
program writes 100 random integers in the range 1 to 100 toa byte file, reads them back, 


and prints them: 

| Writes 100 random integers to a byte file and reads them back 

OPEN #1: NAME "B:File.Byt’, ORGANIZATION BYTE, CREATE NEWOLD 
RANDOMIZE 


FOR | = 1 TO 100 
Let Numb = Int( 100 * Rnd + 1 ) 
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WRITE #1: Num$( Numb ) 
NEXT | 


SET #1: POINTER BEGIN 


FOR | = 1 TO 100 

READ #1, BYTES 8: N$ 

PRINT USING "####": Num( N$ ); 
NEXT | 


CLOSE #1 
END 


Another useful application is in graphics. An image on the screen can be written to a 
byte file and stored there, to be read back and put on the screen at a later stage. An 
example of this is given in section 12.2. 


10.5. String Functions 


Some of the string functions that we have not seen yet are discussed briefly in this 
section. Appendix C has a full description of all the built-in functions. A$ and B$ stand 
for any string expression, and N for any numeric expression. 
LEN( AS ) returns the length of A$ in bytes (characters). 
LTRIMS( A$ ) returns a string which is the same as its argument, but with the leading 
spaces removed. 
POS( AS, BS ) returns the position in A$ of the first occurrence of BS, e.g. 
Ok. PRINT POS( "NAPOLEON", "LEO” ) 

o 


POS( A$, B$, N ) returns the position in A$ of the first occurrence of B$ at or beyo. 
the Nth character. E.g. 


Ok. PRINT POS( "NAPOLEON", "0", 5 ) 
7 


See Ex. 10.3 for an example of usage. You can also search a string backwards, or oe 
for the presence or absence of a member of a list of characters (see CPOS, CEOSH: 
NCPOS, NCPOSR and POSR in Appendix C). 


RTRIM$( A$ ) returns a string which is the same as its argument, but with the trailing 
spaces removed. 

STRS$(N ) returns a number as a string, formatted as for PRINT, but with no leading or 
trailing blanks. Its inverse is VAL. See Ex. 9.6. 


TRIM$( A$ ) returns a string which is the same as its argument, but with the leading and 
trailing spaces removed. 


tu 1 str } In! ll the 
USINGS( format$, exprl, expr2, ... ) returns a string expression containing a 
expressions formatted by the format item exactly as for PRINT USING. See Ex. 9.6. E.g. 


Ok. PRINT USING$("%%", 9) & "h” & USING$("% %", 10 ) 
O9h10 
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VAL( A$ ) returns a string converted to a number. See Ex. 10.2. 


In addition, for the connoisseur, there are two packing routines, PACKB and UNPACKB, 
for packing integers into strings, bit by bit. They are useful for holding large amounts 
of data in memory. They are described briefly in Appendix C. A full description may 
be found in the True BASIC Reference Manual, which has the following rather neat 
version of Eratosthenes’ Sieve for generating prime numbers. The program seems very 
slow at first, but speeds up rapidly once the primes over about 300 have been printed. 


| Sieve of Eratosthenes. Packs the sieve array as bits. 


LET Upper = 100000 ! find primes up to upper 
LET S$ = Repeat$( Chr$(0), (Upper + 7)/8)  ! make string of zero 


! bytes 
CLEAR 
FOR | = 2 TO Upper 
IF Unpackb( S$, |, 1) = O THEN | if number is prime ... 
PRINT USING "######": I; | print it 


IF | * | <= Upper THEN ! and mark its multiples as non-prime 


FOR J = 2 * | TO Upper Step | 
CALL Packb( S$, J, 1, 1 ) | set bit to 1 
NEXT J 


END IF 
END IF 
NEXT | 
END 


10.6. Music 


We have seen that the SOUND statement can be used to generate a sound of given 
frequency and duration. More organized sound, in the form of music, can be produced 


by the PLAY statement 


PLAY Music$ 
where Music$ is a string expression constructed according to True BASIC’s rules for 
music. The details, which are quite easy to follow, may be found in the Reference 
Manual. To whet your appetite, the following program plays the opening bars of a well- 


known work: 


!"JESU, JOY OF MAN'S DESIRING”; J.S. BACH 
|! FIRST PART 

PLAY "MNT12803L6” 

PLAY "P6GAB>DCCED” 
PLAY “DGF#GD<BGAB" 
PLAY “>CDEDC<BABQG” 
PLAY "F#GADF#A>C<BA" 
! BAR 5 

PLAY "BGAB>DCCED" 
PLAY "DGF#GD<BGAB” 
PLAY "A>DC<BAGDGF#" 
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PLAY "GBGB>D<BGB>D" 
PLAY "L1<BL2>C’” 

! BAR 10 

PLAY "L1DL2D” 

PLAY "L1CL2<B" 

PLAY "“AAP2” 

PLAY "P1P2" 

PLAY "L1BL2>C"” 

| BAR 15 

PLAY "L1DL2<B” 

PLAY "L4AL8B>CL2<BA" 
PLAY ”"L1GP2" 


END 


Summary 


« Substrings of a string may be taken with the [a:b] mechanism. 


oh 


Characters are represented by ASCII codes. This is the basis of word sorts. 


Record files have fixed record lengths. Records may be read and written individually, 


and are accessed randomly, as opposed to text files, which are accessed sequentially. 


* A binary search is an efficient search algorithm. 


Byte files have variable record lengths, and may be used to access data byte by byte. 


EXERCISES 


10.1 


10.2 


10.3 


10.4 


Write a program which inputs a sentence of text ending with a full-stop, and prints 
the sentence backwards, without the full-stop. Hint: use a substring. 

Write a program which will read a number in binary code of arbitrary length (e.g. 
1100 — no blanks between the digits) and print out its decimal value (12 in this 
case). Hint: input the number as a string, and use substrings to strip off the 
individual bits. 

When a message is prepared for enciphering, all blanks are removed and it is 
transmitted in groups of five letters, with one blank between each group. Write 
a program which reads the following extract from Jabberwocky by “Lewis 


Carroll’, removes all the blanks, and prints it out in uppercase as described 
above: 


Twas brillig and the slithy toves 

Did gyre and gimble in the wabe / 
The output should look like this: 
TWASB RILLI GANDT HESLI THYTO VESDI DGYRE ANDGI MBLE!I NTHEW ABE 
The program should input any number of lines. The end of the text should be 
signalled by a slash, which should not be printed. 
A fair indication of the authorship of prose can sometimes be obtained by 
calculating the average number of words per sentence (mean sentence length) 
and the standard deviation of this statistic. I once found, for example, that with 
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samples of about 700 lines, G.K. Chesterton is easily distinguishable from Lord 
Macaulay, the former having a significantly shorter mean sentence length, with 
a larger standard deviation. Write a program that reads some text from a text file 
and computes these statistics. Assume, to make things a little easier, that words 
are never separated by more than one space, that sentences are delimited by 
full-stops only, followed by one space, and that full-stops occur nowhere else in 
the text. 

Languages exhibit a characteristic frequency distribution of single letters if a large 
enough sample of text is analysed. For example, in Act III of Hamlet the space 
has a frequency of 19.7%, the ‘“‘e” 9.3%, the “‘o”’ 7.3%, while the “‘z’’ occurs only 
14 times out of 35 224 characters (Bennett, 1976). (The space is important 
because it gives an indication of word length.) Write a program to determine the 
letter frequency of a sample of text in a text file. Assume that spaces only occur 


singly. 


CHAPTER 11 


FUNCTIONS AND SUBROUTINES 


In Chapter Three it was pointed out that the logic of a non-trivial problem should be 
broken down into separate procedures, each carrying out a particular, well-defined 
task. It often happens that such procedures can be used by many different programs, 
and in fact by different users of the same computer system. True BASIC enables you 
to implement these procedures as functions and subroutines, which may be stored 
independently of the main program. Examples are procedures to perform statistical 
Operations, or to sort items, or to find the best straight line through a set of points, or 
to solve a system of differential equations. This facility also enables you to access 
libraries of procedures, such as the mathematical and graphics libraries supplied on the 
True BASIC diskette. If properly used, it can enhance your computing power 
enormously. True BASIC also makes use of the modern idea of modules. The purpose 
of this chapter 1s to introduce you to the basic concepts. 


Functions and subroutines may be classified as either internal or external, depending, 
as we shall see, on where they are placed in a program. External functions and 
subroutines, along with external pictures (see Chapter 12) and the main program, ar 
called program units. We will begin by looking at functions. 


11.7. Functions 


We have «tiready seen how to use the built-in functions supplied by True BASIC, suc 
as Sin, Cos, Log, etc. You can define your own functions to be used in the same way In 
a program. Before we discuss the rules in detail, we will look at some examples. 


Newton's Method in General 

Newton’s method (which is described more fully in Chapter 15) may be used to solve a 
general equation 

f(x) = 0 

by repeating the assignment 

x becomes x — f(x)/f'(x), 

where f’(x) is the first derivative of f(x), until f(x) has come close enough to zero. (You 


can check the algorithm for finding the square root of a in section 2.11 by using f(x) = 
x* — a,) But now suppose that 


f(x) =x +x —-3. 
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f'(x) = 3x? + 1. 

The program below uses Newton’s method to solve this equation starting with x = 2, and 


stopping either when the absolute value of f(x) is less than 1e—6, or after 20 iterations, 
say. It uses two functions: F(X) for f(x) and DF(X) for f’(x). 


! Newton’s method to solve f(x) = 0 


DEF F(X) = X*3+X-3 | f(x) 

DEF DF(X)=3*xX*2+4+ 1 | f'(x) 

LET X = 2 | Starting guess 

LET Its = 0 ! Iteration counter 
LET Max = 20 ! Maximum iterations 
LET Eps = 1e—-6 ! Maximum error 


DO WHILE Abs( F(X) ) > = Eps AND Its < Max 
LET X = X—F(X) / DF(X) 
PRINT USING "##.######": X; 


PRINT USING” #.####°°°°" F(X) 
LET Its = Its + 1 

LOOP 

PRINT 


IF Abs( F(X) ) < Eps THEN 
PRINT “Newton converged” 
ELSE 
PRINT "Newton diverged” 
END IF 
END 


The output is as follows: 


1.461538 1.5835e+00 
1.247788 1.9056e—01 
1.214185 4.1891e—03 
1.213412 2.17338e—06 
1.213412 5.8664e-13 


Newton converged 


Note that there are two conditions that will stop the DO loop: either convergence, or the 
completion of 20 iterations. Otherwise the program could run indefinitely. 


Rotation of Co-ordinate Axes 


Functions are particularly useful when long arithmetic expressions need to be evaluated 
repeatedly. A good example is the rotation of a Cartesian co-ordinate system. If such 
a system is rotated counterclockwise through an angle of t radians, the new co-ordinates 
(x’; y’) of a point referred to the rotated axes are given by 


x’ = x cos(t) + y sin(Z) 
y’ = —x sin(t) + y cos(t), 
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where (x; y) are its co-ordinates before rotation of the axes. The following functions 
could be used to define the new co-ordinates: 


DEF Xnew( X, Y, T ) = X * Cos( T ) + Y * Sin( T ) 
DEF Ynew( X, Y, T ) =—X * Sin( T ) + Y * Cos( T ) 
Bending of a Beam 


A uniform beam (such as exists only in textbooks and university examinations!) is freely 
hinged at its ends x = 0 and x = L, so that the ends are at the same level. It carries a 
uniformly distributed load of W per unit length, and there is a tension T along the x-axis. 
The deflection y of the beam a distance x from one end Is given by 


_ WEI | cosh[a(L/2—-x)] _,| , Wx(k-») 
, T° cosh(aL/2) ap ve 


where a? = 7/EI, E being the Young’s modulus of the beam, and / the moment of inertia 
of a cross-section of the beam. The beam is 10 m long, the tension 1 000 N, the load 100 
N/m, and El] is 1e4. The following program computes the deflection of the beam from 
the horizontal every metre along the beam up to its midpoint, using a defined function 
for the hyperbolic cosine, cosh(x): 


! Deflection of a load bearing beam 


DEF Cosh( X ) = (Exp( X ) + Exp(—X )) / 2 
READ L, W, El, T 
LET A = SQR( T / El ) 


FOR X = 0 TOL/ 2 


LET Y = W * El / T * 2 * (Cosh( A * (L/ 2-—%) ) 
../ Cosh( A* L/ 2)—1) + W* X * (L—X) / (2 * 71) 
PRINT USING "###.###": X, Y 
NEXT X 
DATA 10, 100, 1e4, 1e3 
END 
Output: 
000 ~=.000 
1.000 .205 
2.000 .386 
3.000 .526 
4.000  .615 
5.000 .645 


Parameters and Arguments 

Consider the function definition of cosh(x) in the above program: 

DEF Cosh( X ) = (Exp( X ) + Exp(—X )) / 2 

Note that the statement begins with the keyword DEF, which defines the function 
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according to the rule on the righthand side. X is called a parameter. It has no connection 
with a variable of the same name in the program. The function is invoked, or called in 
the program, by using its name in any statement, e.g. 


LET Y = W * El / T * 2 * (Cosh( A * (L/2—X)) ... 
wf Cosh(. A *L 42 )—1) + W* X * (L—X) / (2. * T) 


When the function Is called, its argument, i.e. 
A * (L/2-—X) 
on the first call, and 


A ie -2 

on the second call, is evaluated, and the value is copied into the parameter in the function 
definition. This value is then used to evaluate the function according to the definition. 
As another example, consider the following program segment, which uses a function to 
compute the discriminant in solving the well-known quadratic equation: 


DEF Disc( A, B, C) =B*2-4*A*C 
READ P, Q, R 


IF Disc( P, Q, R ) > 0 THEN 
LET X1 = (—Q + Sar( Disc( P, Q, R))/2/P 


The parameters A, B and C in the function definition inform the True BASIC compiler 
that three numeric values are to be used to compute a value of Disc according to the rule 
on the righthand side of the definiton. These parameters are not ‘“‘seen”’ by the main 
program. Variables with the names A, B and C can therefore be used elsewhere in the 
program, and will have no connection with the parameters. Amy three numeric variables 


could have been used, e.g. X, Y and Z. 

When the function Disc is referenced later in the program, the entities used in brackets 
after its name (1.e. P, Q and R) are called the arguments. The values of P, Q and R are 
copied into the parameters A, B and C respectively, and used to compute the value of 
Disc. The function may be used repeatedly, with different arguments each time. On 
each call, the argument values are copied into the parameters for use in the function 


definition. 


The types of arguments and parameters must match, i.e. string arguments must be 
passed to string parameters, and numeric arguments to numeric parameters. 


External Functions: the Factorial 


The functions used so far are all one-line functions, since each definition is contained in 
one line: 


DEF F(X) =X*3+X-3 | f(x) 
DEF DF(X)=3*X*24+1 I (x) 
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DEF Xnew( X, Y, T ) = X * Cos( T ) + Y * Sin( T 
DEF Ynew( X, Y, T ) =—X * Sin( T ) + Y * Cos( 
DEF Cosh( X ) = (Exp( X ) + Exp(—X )) / 2 
DEF Disc( A, B, C) =B*2-4* A*C 


its) 
This can be rather restrictive, since more general functions will often need more than 


one statement to define them, e.g. the factorial function in the program below: 


|! Demonstration of External Factorial Function 


DECLARE DEF Fact ' Function name declared 
FOR | = 1 TO 10 
PRINT |; Fact( I ) ! Function used 
NEXT | 
END 


! End of main program 
DEF Fact( N ) ! Function defined 
|! Function to compute N-factorial 

LET Temp = 1 

FOR | =2TON 

LET Temp = | * Temp 
NEXT | 
LET Fact = Temp 


END DEF ! End of function definition 


Output: 


, 
2 

6 

24 

120 

720 

9040 
40320 
362880 
10 3628800 


OmnN ooh WN - 


There are a number of extremely important points to note. 
The function name appears in a DECLARE DEF statement, but without parameters. 


After the END of the main program the function name appears in a DEF statement, this 
time with parameters. 


The function is defined over a number of lines, each of which is a normal True BASIC 


statement. The definition is terminated with an END DEF statement. The function is 
therefore a multi-line function. 


The function name (Fact) must appear at least once on the lefthand side of a LET 
statement in the definition, without parameters. In this way the function Is evaluated 
and its value returned to the main program. 


As with one-line functions, argument values are passed into the multi-line function 
through its parameters. Technically, the arguments are passed by value. This means that 
if a parameter value is changed in the function defintion, which is perfectly possible 
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although not recommended, the corresponding argument will not be changed on return 
to the main program. (This is not the case with subroutines — see below. ) 

If the function name is mentioned on the righthand side of any statements in the 
function definition, its parameters must be included, and the definition becomes 
recursive (see below). 

The last point is the most important one. When a function definition is placed after the 
END of the main program, as above, the function is called an external function. The 
effect of this is that the variables in the function definition are local (unlike the case in 
older versions of BASIC). This means that variables in the definition (e.g. | and Temp) 
have no connection with other variables of the same name in the main program, or in 
any other functions or subroutines. The function definition therefore behaves like a 
black box. The outside world cannot see into an external function, neither can variables 
inside the function see out (with the exception of the parameters). If you are a Street 
BASIC addict trying to kick the habit, the concept of local variables will be a new one 


to you! 


nternal Functions 


The following program also uses a function to compute factorials, but there are some 
subtle and very important differences: 


! Demonstration of Internal Factorial Function 


FOR | = 1 TO 10 


PRINT |; Fact( | ) ! Function used 
NEXT | 
DEF Fact( N ) |! Function defined 
! Function to compute N-factorial 

LET Temp = 1 


FOR | = 2 TON 
LET Temp = | * Temp 
NEXT | 


LET Fact = Temp 
END DEF | End of function definition 


END ! End of main program 
Output: 


Lec! 
3.6 
5 120 
7 5040 

9 362880 
The main difference in the program layout is that the function definition now comes 
before the END of the main program. When a function definition comes before the END 
of the main program, the function is called an internal function. Its variables, except for 
those passed as parameters, are global to the main program, and other internal 
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functions (and subroutines, for that matter). This means that the function is no longer 
a ‘“‘black box’’, and variables inside it are the same as variables of the same name 
elsewhere in the same program unit. 


This point is well illustrated in the above example, where only the factorials for odd 
numbers are computed, although the function is the same as the one used in the previous 
example. The function Factis first called when | = 1, which is the first value printed. This 
value is passed to the function through its parameter N. The same | is now given the value 
2 in the FOR-NEXT loop inside Fact, but since it is greater than N, the body of the loop 
is not executed. | therefore still has the value 2 when Fact returns to be printed. 
However, | is now increased to 3 by the NEXT statement in the main program, which 1s 
the value it has when the second call to Fact takes place. In this way, Fact is never 
computed for an even value of |. All this is a consequence of Fact being an internal 
function, and the variable | being global (i.e. known both to main program and 
function). 


Local and Global Variables 


This distinction between local and global variables is so important that it is worth 
looking at another example: 


! | is “Global” here 
PRINT Sum( 10 ); | 


DEF Sum( N ) 
|! Sums the first N natural numbers 
LET Temp = 0 


FOR | =1 TON 
LET Temp = Temp ¢+ | 
NEXT | 


LET Sum = Temp 
END DEF 
END 


The function Sum computes the sum of the first N integers. Since it is placed before END, 
it is internal, so all its variables are known throughout the program unit containing It. 
The output is therefore 


Jo Td 
(| is increased to 11 at the end of the last execution of the FOR-NEXT loop). 


If the function definition is moved to below the END of the main program, it becomes 
external, and its variables are local: 


! Example of local variable 
DECLARE DEF Sum 
PRINT Sum( 10 ); | 

END 


142 CHAPTER 11 





DEF Sum( N } 
! | is local now ... 
! Sums the first N natural numbers 


LET Temp = 0 


FOR! =1TON 
LET Temp = Temp + | 


NEXT | 

LET Sum = Temp 
END DEF 
The output is now 
55 O 


because | in the main program is zero, not having been assigned any value. It has no 
connection with | in the function definition. 


General Rules for Functions 

4 function may be defined in two general ways: 
DEF Name( paraml, param2§$, ... ) = expr 

or 


DEF Name( param, param2$§, ... ) 
LET Name = expr 


END DEF 
Functions can return either numeric or string values, and as such their names must 
follow the rules for numeric or string variables, e.g. 


DEF Initialf( Name$ ) = UCase$( Name$[1:1] ) 

If a defined function has the same name as a built-in function, that built-in function may 
not be used in the same program unit. A function name must be unique; the same name 
cannot be used for a variable or subroutine. 

A function is invoked or called by referencing its name in any statement. The arguments 
in the referencing statements are passed by value to the parameters in the function 
definition. 

If a function definition comes before the END statement of the program unit containing 
it, it is an internal function with global variables. 

If a function definition comes after the END of the program unit calling it, it is an 


external function with respect to that program unit, with local variables. Its name must 
appear without parameters in a DECLARE DEF statement in the calling program unit: 


DECLARE DEF Name 
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An external function may be used in any program unit in which its name appears in a 
DECLARE DEF statement. 


DECLARE DEF may be optionally used to name internal functions. 


Functions may be defined recursively (see below). 


Function parameters may be numeric or string constants, variables (including arrays) or 
expressions, but not channel numbers. If a function has no parameters, the parentheses 
after its name must be omitted. Although arrays may be passed as arguments, this can 
be very time consuming, since they are passed by value. Array parameters are discussed 
fully in the section below on subroutines. 


Local variables in an external function are re-initialized every time the function is 
called, i.e. they do not retain their values between function calls. 


Channel numbers in external functions are also local, and will not interfere with similar 


channel numbers in the calling program. The following function finds the size of the file 
passed to it: 


DECLARE DEF Size 
PRINT Size( "Hello.exe” ) 
END 


DEF Size( Name$ ) 
|! Finds size of the file Name$ 


OPEN #1: NAME Name$ 
ASK #1: FILESIZE Leng 
LET Size = Leng 

END PEF 


Ok. run 
136784 


All channels are closed when an external function returns. 
Functions may be defined in any order (alphabetical is recommended). 


The statement EXIT DEF may be used to exit from a function at any point. Its use is not 
generally recommended. 


For compatibility with ANS BASIC, the word FUNCTION may be substituted for DEF 
wherever it appears. 


Recursion 

Many mathematical functions are defined recursively, i.e. in terms of simpler cases of 
themselves. E.g. n! may be defined as follows: 

n! =n(n-1)! 

provided that 1! is defined as 1. True BASIC allows functions and subroutines to call 


themselves. This process is called recursion. The factorial function may be rewritten as 
a recursive function as follows: 
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|! Demonstration of Recursive Factorial Function 


DECLARE DEF Fact 
PRINT Fact( 10 ) 
END 


DEF Fact( N ) 
! Recursive Function to compute N-factorial 


IF N <1THEN 
LET Fact = 1 
ELSE 
LET Fact = N * Fact( N—1 ) 
END IF 
END DEF 
This is the way functions are generally computed recursively. An IF statement traps the 
special case (N = 1 here); for all other cases the recursive definition is used. Note that 
the function’s arguments must be stated now when it appears on the righthand side of 


a LET statement. 


While recursion appears to be deceptively simple, it is an advanced topic which should 
be treated with care. This is demonstrated by the following experiment. Insert the 


statement 


PRINT N; 

in the function definition before the IF statement. The effect is what you might expect: 

the integers 10 to 1 in descending order. Now move the PRINT statement to after the IF 

statement, and see what happens. The result is the integers 1 to 10 in ascending order, 

which 1s rather surprising. 

In the first case, the value of N is printed every time the function Is called, and the output 
is obvious enough. However, there is a big difference between a recursive function 
being called, and executed. In the second case, the PRINT statement can only be 
executed after the IF has finished executing. And when exactly does that happen? Well, 
on the first call, N has the value 10, so the ELSE part is evaluated. However, the value 
of Fact(9) is not known at this stage, so a copy is made of all the statements in the function 
which will need to be executed once the value of Fact(9) is known. The reference to 
Fact(9) makes Fact call itself with N = 9. Again, the else part of the IF is evaluated, 
whereupon True BASIC discovers that it doesn’t know the value of Fact(8). So another 
(different) copy is made of all the statements that will need to be executed once the 
value of Fact(8) is known. And so each time Fact is called, separate copies are made of 
all the statements yet to be executed. Finally, True BASIC joyfully finds a value of N (1) 
for which it knows Fact, so it at last begins to execute the PRINT statements which have 
been dammed up inside the memory. And this it does in the order N = 1, 2, 3, etc., 
because this is the order in which it discovers the successive values of Fact(N). 


This discussion illustrates the point that recursion should be used carefully. While it is 
perfectly in order to use it in a case like this, it can chew up huge amounts of computer 
memory and time. This point is amply illustrated by Ackermann’s function, one of the 
most notorious of all recursive functions, which is defined as follows: 
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A(0,N)=N+1 

A(M, 0) = A(M — 1, 1) 

A(M, N) = A(M — 1, A(M, N —1)). 

The following program attempts to compute this function: 
! Ackermanns's function 

DECLARE DEF Ack 


FOR | = 0 TO 6 
FOR J = 0 TO 6 
PRINT I; J; Ack(I, J); Mem 


NEXT J 
NEXT | 
END 
DEF Ack( M, N ) 
IF M = 0 THEN 
LET Ack = N + 1 
ELSE IF N = O THEN 
LET Ack = Ack( M-—1, 1 ) 
ELSE 
LET Ack = Ack( M—1, Ack( M, N-—1 ) ) 
END IF 
END DEF 


If you have the patience to wait long enough, you will find that the program runs out of 
memory long before it should stop executing. 


It is best only to define external functions and subroutines recursively. 


The Towers of Hanoi problem (Hanoi.tru) on the True BASIC diskette is a good 
example of recursion. 


11.2. Subroutines 
Subroutines behave in the same way as functions, with three very important differences: 


1) no value is attached to the name of a subroutine; 
2) arguments are passed by reference, not by value; 
3) channel numbers may be passed as arguments. 


These differences will become clear as we work through this section. 


swopping Iwo Variables 


As our first example, we consider a subroutine to swop the values of two variables (this 
could be used in a sorting program, for example): 
| Test program for Swop 


LET A = 13 
LET B = 103 
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CALL Swop( A, B ) ! Arguments A, B 


PRINT A; B 
END 


SUB Swop( X, Y ) 
! Swops the two parameters X and Y 


|! Parameters X, Y 


LET Temp = X 

LET X = Y 

LET Y = Temp 
END SUB 
Ok. run 

103. «13 

The distinction between internal and external subroutines is the same as with functions: 
if the subroutine is defined before the END statement of the program unit containing It, 
it is internal, and its variables are globally available within that program unit; if the 
subroutine is defined after the END statement of a program unit, it is external, and its 
variables are local, and consequently not available to any other routines (routine is the 
generic name for a function or subroutine). 


The first two differences between subroutines and functions mentioned above are 
shown here. No value can be assigned to the name Swop (this will cause an error). To 
invoke the subroutine, its name must be mentioned in a CALL statement. 


How then are results sent back from the subroutine? They are sent back through the 
parameters. When a subroutine is called, the parameters in its definition are allocated to 
the same memory locations as the arguments in its calling statement. It therefore follows, 
as night follows day, that the variables X and Y in the subroutine occupy the same 
memory locations as the variables A and B in the main program. No other variavies are 
Shared, since Swop is an external subroutine. Consequently, any changes made to the 
values of X and Y in the subroutine are obviously reflected in similar changes to A and 
B on return to the main program. This process is technically called passing by reterence. 
The names of the arguments are passed to the subroutine. These names are used for the 
actual memory locations of the respective parameters. All communication with an 
external subroutine is therefore through its parameters. 


lean and Standard Deviation 


Arrays may be passed as parameters to subroutines. Since they are passed by name, the 
individual values are not copied across as they would be in the case of functions, making 
ita much faster process. The following program uses a subroutine to compute the mean 
and standard deviation of a set of data: 


! Test program for Mean 


DIM X(1000) 

READ N 

MAT READ X(N) ! Explicit redimensioning to size N 
CALL Mean( X, N, XBar, Std ) 

PRINT XBar; Std 
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DATA 10, 5.1, 6.2, 5.7, 3.5, 9.9, 1.2, 7.6, 5.3, 8.7, 4.4 
END 


SUB MEAN( A(), N, Avg, Std ) 
! Returns Mean (Avg) and standard deviation (Std) 


FOR |= 1TON | First the mean 
LET Avg = Avg + Aji) 
NEXT | 


LET Avg = Avg /N 


FOR |= 1TON ! Then the standard deviation 
LET Std = Std + (A(I) — Avg) * 2 
NEXT | 
LET Std = Sar( Std / (N—1) ) 
END SUB 


The main point to note here is how arrays are passed. The array is dimensioned in the 
normal way in the main program. Its name, X, is mentioned in the calling statement. 
However, the equivalent parameter in the subroutine, A, must be followed in the 
subroutine definition by parentheses, ‘‘( )’’, to indicate that it is a one-dimensional 
array. No DIM statement is needed inside the subroutine for an array passed as a 
parameter. The parentheses after its name are therefore necessary to inform the 
compiler that it is in fact an array. Array parameters with more than one dimension are 
discussed in Chapter 14. The parentheses indicating an array may also follow the array 
name in the calling statement, for uniformity, but this is not strictly necessary, e.g. 


CALL Mean( X(), N, XBar, Std ) 


Avg and Std in the subroutine share the same memory locations as XBar and Std in the 
main program, which will have the appropriate values on return. 


Largest Item in a List 


In this example, an array is passed to a subroutine which computes the size and position 


of the largest number in the array (the subroutine is tested with a list of random 
numbers): 


| Test program for MaxPos 
DIM X(1000) 

RANDOMIZE 

LET N = 100 

FOR |=1TON 


LET X(l) = N * Rnd 
NEXT | 


| Take 100 random numbers 


CALL MaxPos( X, N, Max, Pos ) | Argument X may have () 
PRINT Max; Pos 
END 


SUB MaxPos( A(), N, Max, Pos ) |! Parameter A MUST have () 
| Finds position (Pos) and size (Max) of largest of N items in list A 
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LET Pos = 1 
LET Max = A(1) 


FOR !|!=2TON 
IF A(l) > Max THEN 
LET Pos =| 
LET Max = Aj(l) 
END IF 
NEXT | 


END SUB 


General Rules for Subroutines 


The general form of a subroutine 1s: 


SUB Name( paraml, param2§, ... ) 
... block of statements 


END SUB 
It is invoked by the statement 


CALL Name( argl, arg2$,... ) 

If the definition comes before the END of a program unit, the subroutine is internal with 
global variables, otherwise it is external, with local variables. This important distinction 
is illustrated yet again with the following example. 


! Funny is Internal here 


FOR | = 1 TO 10 
CALL Funny 
NEXT | 
SUB Funny 
PRINT |; 
END SUB 
END 
Ok. Run 
leet eS) 40 05> Oo 7-8-9. 10 
Because Funny is internal (END comes after it), all variables are global, so it knows about 
|, and prints the correct values. Now move the END statement to before SUB Funny: 


| Funny is External here 


FOR | = 1 TO 10 
CALL Funny 
NEXT | 


END 
SUB Funny 
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PRINT |; 
END SUB 
Ok. run 
0 00 0 00 0 0 0 0 


| inside Funny is now local to the subroutine, and has not been assigned any value. It is 
therefore automatically set to zero. 


Great care must be taken not to confuse global variables used in internal subroutines. 
This applies particularly to loop counters. It is advisable to use different loop counters 
in each subroutine. Even better would be to use a module with shared variables (see 
section 11.13). 


A subroutine’s name must be a legal numeric variable name (i.e. it may not end with 
‘‘$”’). The same name may not be used for another variable, function or array. 


A subroutine may have any number of parameters, or none at all (as above). Channel 
numbers (constants, not expressions) may be passed as parameters (this 1s illustrated in 
the next section). Local channels opened by an external subroutine are closed when the 
subroutine returns, except those passed as parameters. 


All variables (except parameters) local to an external subroutine are automatically 
initialized to zero or the null string every time the subroutine is called. This is not the 
case with internal subroutines, where variables must be specifically initialized to zero 
every time the routine is called, if necessary. 


A subroutine may be defined recusively (see Section 12.1). 


READ statements in a program unit can only read from DATA statements in the same 
program unit. RESTORE only rewinds the data spool for a particular program unit. 


Subroutine parameters are passed by reference. Variables which are arguments in a call 
statement therefore occupy the same memory locations as the equivalent parameters in 
the subroutine definition. The situation is different when constants or expressions are used 
as arguments. These are copied into temporary variables. The temporary variables are 
passed instead to the subroutine. If the subroutine changes the values of those 
parameters, only the temporary variables are changed, not the original arguments in the 
subroutine. Parentheses around a variable are sufficient to categorize it as an 
expression, and so protect it from being changed. These points are illustrated in the 
following example, which leaves the two arguments unchanged: 


LET A = 1 
LET B = 2 
LET C=3 


CALL Plonk( A + B, (C) ) 
PRINT "“Outside:”: A: B;: C 
END 
SUB Plonk( X, Y ) 
PRINT “Inside:”: X: Y 
LET X, Y = 4 
END SUB 


Ok. run 
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Inside: 3 3 

Outside: 1 2 3 

A substring is also passed by value (i.e. treated as an expression). E.g. 

CALL Squish( A$[4:10], ... ) 

leaves A$ unchanged even if the corresponding parameter is changed in Squish. 

A subroutine (or function) may have routines nested within it. 

There is a potential ambiguity in the way subroutine parameters are passed, which 
should not arise if you program carefully, but which is not covered in the True BASIC 
Reference Manual. Consider the following: 


LET A= 1 
LET B = 2 
LET C=3983 


CALL Funny( A, B, C) 
PRINT “Outside:”; A; B; C 
END 
SUB Funny( X, X, X ) 
PRINT “Inside:”; X 
LET X = 4 
END SUB 
Ok. run 
Inside: 3 
Outside: 1 2 4 
Obviously A, B, C and X can’t all be in the same place! True BASIC appears to resolve 
this problem by only passing C by reference. 
Assembly language subroutines may be called by a True BASIC program. See the 7rue 
BASIC Reference Manual and User’s Guide for details. 
Subroutines may contain the statement EXIT SUB. When this is executed, control 1s 
immediately returned to the calling program. Its use is not generally recommended, 
except in the case of recursion. 


1.3. File Handling 


Two useful file handling programs are given in this section. 


Copying Text Files Safely 


Channel numbers used in an external subroutine, and which are not passed as 
parameters, are local to that subroutine. The following program uses a subroutine to 


copy a text file: 
! Test program for FileCopyText 
CALL FileCopyText( "B:Original. Txt’, "B:Copy.Txt” ) 
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END 
SUB FileCopyText( Master$, Slave$ ) 


| Copies Text files Mastef$ to Slave$ 
! Routine crashes if you try to copy the wrong way 


OPEN #1: NAME Master$, ORGANIZATION TEXT, CREATE OLD 
OPEN #2: NAME Slave$, ORGANIZATION TEXT, CREATE NEW 


DO WHILE MORE #1 
LINE INPUT #1: Line$ 
PRINT #2: Line$ 

LOOP 


CLOSE #1 
CLOSE #2 
END SUB 


Channels #1 and #2 are local to the subroutine, and will not interfere with the same 
channels in the main program, which can therefore be simultaneously open. 


This copying program is safer than the MS-DOS program COPY, because it prevents 
an existing file from being overwritten. There are in fact two safeguards. The OPEN #2 
Statement insists that the file Slave$ must be new, and in any case True BASIC will not 
overwrite a text file unless it has first been erased. Most programmers live in daily dread 
of copying their files the wrong way round! 


A General File Opener with Error Handler 


This program passes a channel (#1) as a parameter to the subroutine FileOpener, which 
attempts to open a file on that channel according to the user’s prescription. Note that 
the channel parameter in FileOpener must be a constant in the range 1 to 1000, preceded 
by the number sign (#), i.e. #N may not be used as a parameter. Although the channel 
IS Opened in FileOpener, it is left to the main program to close it. An error handler is used 
to intercept any errors. The sample output shows an attempt to create a new file with 
an existing filename: 


| Test program for File Opener 


CALL FileOpener( Name$, #1, Size ) 
PRINT #1:"Hi there” 

CLOSE #1 

END 


SUB FileOpener( File$, #999, Size ) 
! Attempts to open a file with an error handler 


DO 
WHEN ERROR IN 
LET Err = Q 
PRINT 


INPUT PROMPT "File Name (including Disk Drive):”: FileS 
INPUT PROMPT "ACCESS:”: Acc$ 
INPUT PROMPT "CREATE:”: Cre$ 
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INPUT PROMPT "ORGANIZATION: ”: Org$ 
IF Ucase$( Org$ ) <> "TEXT” THEN 
INPUT PROMPT "RECSIZE:”: Size 
OPEN #999: NAME File$, ACCESS Acc$, CREATE Cre$, ... 
... ORGANIZATION Org$, RECSIZE Size 
ELSE 
OPEN #999: NAME File$, ACCESS Acc$, CREATE Cre6, ... 
... ORGANIZATION Org$ 
END IF 
USE 
LET Err = 1 
PRINT “Error in line”: ExLine$ 
PRINT ExText$ 
PRINT “Please try again ...” 
END WHEN 
LOOP UNTIL Err = 0 
PRINT “Done” 
END SUB 
Ok. run 


File Name (including Disk Drive): B:Plonk.Txt 
ACCESS: Outin 

CREATE: New 

ORGANIZATION: Text 

Error in line 23 in fileopener 

File already exists. 

Please try again ... 


File Name (including Disk Drive): ... 


11.4. A Basic Budget 


In this section we develop a menu-driven program to compare monthly budget and 
expenditure. You could easily adapt it for use at work or at home. The menu has four 
options. The /nitialization option enables you to set up categories of expenses you want 
to allow for (e.g. household, transport, etc.) and how much you want to budget for each 
category. This information ts stored in a text file which is named with the first three 
letters of the month in question. Whenever you incur expenses during that month you 
can use the Transaction option to enter for each transaction a predetermined single 
letter code for the expense category, and the amount to be debited to that category. 
Only valid expense codes are accepted. The Monthly Statement-option prints out a 
statement for the month showing expenditures for the categories, and their variance 
from budget. Finally, there is a Quit option. 
The problem 1s fairly involved, so it is wise to draw up a structure plan before plunging 
into the code: 
1. Start up 
2. Repeat until asked to Quit: 

2.1 Print Menu and ask for option 

2.2 If Initialization then 
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2.2.1 Open a new file 
2.2.2 Input expense codes, explanation and budget, and write them to the file 
2.2.3 Close the file 
2.3 If Transaction then 
2.3.1 Open the file and set the pointer to the end of the file 
2.3.2 Repeat until (@, 0) entered: 
2.3.2.1 Input expense code and amount 
2.3.2.2 Write them to the file 
2.3.3 Close the file 
2.4 If Monthly Statement then 
2.4.1 Open the file 
2.4.2 Get budget data from the file 
2.4.3 While more data in the file repeat: 
2.4.3.1 Get transactions from file 
2.4.3.2 Total the expenditure 
2.4.4 Produce and print the statement 
2.4.5 Close the file 
3. Stop. 


A text file is the appropriate kind of file to use here. It is easy to handle, and may be 
viewed on the screen and corrected. When new transactions are to be added, the SET 
POINTER END statement is used to move the pointer to the end of the file. 


Each menu option is handled in a different subroutine. Because there are a fair number 
of variables, it 1s more convenient to use internal subroutines. Since all variables are 
global, the running totals TotBud (in Codes) and TotEx (in Statement) must be initialized 
to zero on every call. Some programmers may prefer to use external subroutines and 
pass all the variables and arrays as parameters. Yet others again may prefer to use a 
module containing (external) subroutines with a specified list of shared variables. 


The GET KEY statement is used so that the options may be input from the keyboard 
without the user having to press Return. A PRINT statement echoes the input on the 
screen. All user input 1s converted to uppercase by the program. The statement 


MAT Spend = Zer 


in the subroutine Statement is a special MAT statement which sets all the elements of the 
array Spend to zero (see Chapter 14). 
The full program is as follows: 


| A Basic Buaget 


| An$ ; Option exercised 

| Bd$ : Expense code for current transaction 

| Filed : Text file with data 

| Format$ : Format string for printing statement 

| | ; General counter 

| Mond - Current month, abbreviated to three letters 
| Ne : Number of codes 

| TotBud ; Total budget 

| TotEx : Total expenditure 

| Trans - Amount of current transaction 
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' Budget allocations 


DIM Bud(20) 

DIM Cd$(20) | Budget codes (single letters) 

DIM Expl$(20) ! Explanation of codes 

DIM Spend(20) ! Expenditure under each code 

LET Spc = 8 |! Spaces between statement columns 


LET Format$ ="####.##" & Repeatd("", Spc ) & “## tH. FHT 
LET Format$ = Format$ & RepeatS("", Spc ) & "+t####.##" 


INPUT PROMPT "Month? ”: Mon$ 


LET File$ ="B:” & Mon§$[1:3] | Drive B assumed 
DO 
CLEAR | Print Menu 


PRINT “BUDGET FOR THE MONTH OF”: 
SET COLOR "black/white/blink” 
PRINT Mon$ 
SET COLOR "white/black” 
SET CURSOR 5, 1 
PRINT "Month Initialization: I” 
PRINT 
PRINT "Transaction Entry: IT” 
PRINT 
PRINT "Monthly Statement: S” 
PRINT 
PRINT ”Q: Quit’ 
PRINT 
PRINT "Which option (DO NOT press RETURN)? ”; 
GET KEY Asc 
LET An$ = Chr$( Asc ) 
LET An$ = Ucase$( An$ ) 
PRINT An$ 
SELECT CASE An$ 
CASE “I” 
CALL Initialize 
CASE "T” 
CALL Transaction 
CASE "S” 
CALL Statement 
CASE ELSE ! Do nothing 
END SELECT 
LOOP UNTIL An$ = "Q” 
SUB Codes 
|! Get budget data from opened file 
INPUT #1: Ne 
LET TotBud = 0 
FOR | = 1 TO Ne ! Get codes, explanations and allocations 
INPUT #1: Cd$(I), Expl$(I), Bud(I) 
LET TotBud = TotBud + Bud(l) ! Compute total budget 
NEXT | 


END SUB 
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SUB Initialize 
| Set up codes, explanations, budgets, and write them to Mon$ 


OPEN #1: NAME File$, CREATE NEWOLD 


ERASE #1 ' In case its already there 
CLEAR 


INPUT PROMPT "How many codes? ”: Ne 
PRINT #1: Ne 


FOR | = 1 TO Ne 
PRINT USING "Code ##:”: |; 
INPUT PROMPT "": Cd3(1) ! Suppress question mark 
SET CURSOR I + 1, 13 
INPUT PROMPT "Explanation: ”: Expl$(I) 
SET CURSOR | + 1, 65 
INPUT PROMPT "Budget: ”: Bud(l) 
PRINT #1: Ucase$( CdS(I)[1:1] );".”; Expl$(l);”,”; Bud(l) 
NEXT | 


CLOSE #1 
END SUB 


SUB Statement 
! Prepare and print monthly statement 


OPEN #1: NAME File$ 


CALL Codes | Get budget data 

Le? oie: =0 

MAT Spend = Zer ! Set whole array to zero 
DO WHILE MORE #1 ! Input all transactions 


INPUT #1: Bd$, Trans 


FOR | = 1 TO Ne | Determine transaction code 
IF Bd$ = Cd$(l) THEN 
LET Spend(!) = Spend(l) + Trans ! Allocate expenditure 
LET TotEx = TotEx + Trans’ ! Keep running total 
END IF 
NEXT | 


LOOP 


INow print the statement 

CLEAR 

PRINT "STATEMENT FOR THE MONTH OF”; Mon$ 
SET CURSOR 3, 1 

PRINT Tab( 21 );"BUDGET"”; Tab( 36 ); "ACTUAL"; 
PRINT Tab( 50 ); "VARIANCE" 

PRINT 


FOR | = 1 TO Ne 

PRINT Expl$(l); Tab( 20 ); 

PRINT USING Format$: Bud(l), Spend(l), Bud(l) — Spend(!) 
NEXT | 


PRINT 
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PRINT "TOTAL:”; Tab( 20 ); 

PRINT USING Format$: TotBud, TotEx, TotBud — TotEx 
CLOSE #1 

SET CURSOR 24, 1 

PRINT "Press RETURN to continue ...” 
GET KEY 22 


END SUB 


SUB Transaction 


| Accept transactions in the form of Code, Amount (@, O to end) 


OPEN #1: NAME FileS 
| Get budget data for checking 


CALL Codes 
SET #1: POINTER END |! Add transactions at end of file 
CLEAR 
DO 
INPUT PROMPT "Enter Code, Amount (@, 0 to end):”: Bd$, Trans 
LET Bd$ = Ucase$( Bd$[1:1] ) | First letter only 
LET | = 0 
LET Found = 0 
DO ! Check budget code 
Se ea at 


IF Bd§ ="@" OR Bd$ = Cd$(l) THEN LET Found = 1 
LOOP UNTIL Found = 1 OR | = Ne 
IF Found = 1 THEN 


IF Bd} <>"@" THEN 
PRINT #1: Bd$, ”,”: Trans 


END IF [Forces ELSE to apply to first IF 
=LSE 
PRINT “Unknown budget code — please try again” 
END IF 
LOOP UNTIL Bd$ ="@" 
CLOSE #1 
END SUB 
END 
The program is demonstrated with some sample sessions below. First, initialization (1 
option): 
How many codes? 5 
Code 1: C Explanation: Clothing Budget: 75 
Code 2: E Explanation: Entertainment Budget: 50 
Code 3: H Explanation: Household Budget: 500 
Code 4: R Explanation: Rest (General) Budget: 300 
Code 5: T Explanation: Transport Budget: 80 


Next, some transactions (T option): 


Enter Code, Amount (@, 0 to end): 
Enter Code, Amount (@, 0 to end): 


Enter Ccde, Amount (@, 
Enter Code, Amount (@, 


O to ena): 
0 to end): 


h, 120 
t, 20 
Cc, 25 
e,12.5 
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Enter Code, Amount (@, 0 to end): @, 0 
Then a monthly statement (S option): 


STATEMENT FOR THE MONTH OF May 


BUDGET ACTUAL VARIANCE 
Clothing 75.00 25.00 + 50.00 
Entertainment 50.00 12.50 + 37.50 
Household 500.00 120.00 + 380.00 
Rest (General) 300.00 00 + 300.00 
Transport 80.00 20.00 + 60.00 
TOTAL: 1005.00 177.50 + 827.50 


Press RETURN to continue ... 
Now some more transactions for the same month (T option): 


Enter Code, Amount (@, 0 to end): e, 50 

Enter Code, Amount (@, 0 to end): c, 79.99 
Enter Code, Amount (@, 0 to end): r, 29.82 
Enter Code, Amount (@, 0 to end): @, 0 


And finally, another monthly statement (S option): 
STATEMENT FOR THE MONTH OF May 


BUDGET ACTUAL VARIANCE 
Clothing 75.00 104.99 — 29.99 
Entertainment 50.00 62.50 — 12.50 
Household 500.00 120.00 + 380.00 
Rest (General) 300.00 29.82 + 270.18 
Transport 80.00 20.00 + 60.00 
TOTAL: 1005.00 337.31 + 667.69 


Press RETURN to continue ... 


11.5. A Xhosa-English Translation Test 


This program reads in a set of phrases in English and Xhosa. Xhosa phrases are given 
to the user at random, for her to translate. A tally is kept of correct answers, and if the 
user gets all the questions right she is rewarded with a short fanfare. (I am indebted to 
my son, André, for the special effects in this program!) 


! Xhosa-English Test 


DIM Eng$(1000) ! English phrases 
DIM Xhog$(1000) | Xhosa phrases 
RANDOMIZE 

| Read in all the phrases and translations 

LET N = O 


DO WHILE MORE DATA 
LET N=N +17 
READ Eng$(N), Xho$(N) 
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LOOP 


! There are N phrases 
DO ! Menu 
CLEAR 
SET COLOR "black/white" 
SET CURSOR 10, 25 
PRINT “WELCOME TO THIS ENGLISH/XHOSA TEST” 
SET COLOR “white/black” 
PRINT 
PRINT “Indicate your choice with a single letter:” 
PRINT 
PRINT "English — Xhosa (E) (not operational yet!)” 
PRINT "Xhosa — English (X)” 
PRINT “Stop (S)’ 
PRINT 
INPUT PROMPT "What do you want?”: An$ 
IF Ucase$( An$ ) ="X"” THEN CALL Xhosa 
LOOP UNTIL Ucase$( An$ ) ="S" 


DATA teacher, titshala 

DATA pupils, bafundi 

DATA how are you?, usaphila? 
DATA window, ifestile 

DATA bird, intaka 

DATA open, vula 

DATA close, vala 

DATA stand, yima 

DATA Tuesday, uLwesibini 


SUB FanFare 
CLEAR 
SET COLOR “black/white” 
SET CURSOR 10, 31 
PRINT “CONGRATULATIONS!!!” 


FOR Fr = 750 TO 950 STEP 50 
SOUND Fr, 0.1 
NEXT Fr 


FOR Fr = 900 TO 750 STEP — 50 
SOUND Fr, 0.1 

NEXT Fr 

PRINT 


SET COLOR “white/black” 
END SUB 


SUB Xhosa | Xhosa—English 


DO 
PRINT 
INPUT PROMPT “How many questions do you want?”: Num 
LET Marks = 0 


FOR | = 1 TO Num 
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CLEAR 
LET J = Int( N * Rnd + 1) ! Choose a random phrase 
PRINT "Xhosa: ”; 
SET COLOR "black/white" 
PRINT Xho$(J) 
SET COLOR “white/black” 
INPUT PROMPT "Eng:”: ReplyS 
IF Ucase$( Reply$ ) = Ucase$( EngS(J) ) THEN 
LET Marks = Marks + 1 
PRINT “Correct!!!” 
SOUND 900, 0.5 
PRINT 
ELSE 
PRINT "Wrong — answer is: ”;Eng$(J) 
SOUND 100, 1 
PRINT 
END IF 
PRINT “Press RETURN to continue” 
GET KEY ZZ 
NEXT | 


IF Marks = Num THEN CALL FanFare 

PRINT "You got’; Marks; “out of’; Num 

PRINT 

INPUT PROMPT "Do you want another set of Xhosa questions (y/n)? ”: Reply$ 
LOOP UNTIL Ucase$( Reply$ ) = "N” 
END SUB 
END 


Although the program runs as it is, it 1s left to you as an exercise to program the 
English—Xhosa test. Another improvement would be to store the data in a text file, 
which can be read in at the beginning. You might also like to think about how to prevent 
a correctly answered question from being asked again in the same session. 


11.6. A Binary Search Subroutine 


In this section the binary search procedure of Chapter Ten is rewritten as a subroutine, 
SUB Binary( #999, ltem$, Leng, Pos ) 


It is used on a record file opened by the main program. It is assumed that each record 
is astring, that aname is in the first Leng bytes of each record, and that all records except 
the first contain names in this format. The subroutine searches for a name Item§. If it is 
found, the record number of the name is returned in Pos. If it is not found, Pos 1s set to 
zero on return. 


A second routine 
SUB UnPack ( #999, Leng, Pos ) 


is used to unpack the string found at record Pos, which is assumed to have numbers 
packed in eight-byte substrings from byte Leng+1 onward. The first line of the file is 
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assumed to have the same format as the student marks file discussed in Chapter Ten: 
the number of offerings is packed into the first eight bytes. 


The routines are shown here with a simple main program which uses the record file 
‘“Mark.Rec”’: 


! Test program for Binary Search Subroutine 


OPEN #1: NAME "B:Mark.Rec” 
LET Leng = 20 ! Length of name in file 
INPUT PROMPT "Name and initials to search for? ”: Item$ 
LET ltem$ = (Item$ & Repeat$(””, Leng ))[{1:Leng] 
CALL Binary( #1, Item$, Leng, Pos ) 
IF Pos <> 0 THEN 
CALL UnPack( #1, Leng, Pos ) 
ELSE 
PRINT “Name not found — try again” 
END IF 
CLOSE #1 
END 


SUB Binary( #999, Item$, Leng, Pos ) 
! Binary search through all records of file except first 


No. of records 
Max bisections 
Bisection counter 


ASK #999: FILESIZE Size 
LET NumBis = Int( Log2( Size —1))+1 


— — >: ie a ‘— + 


LET Count = 0 

LET Found, Pos = 0 Item not found yet 

LET Lo = 2 1st name is in 2nd record 
LET Hi = Size + 1 Last name + 1 

DO Now for the search proper 


1st bisection 
Move to record Mid .. 
. and read it 
Unpack name 


LET Mid = Int( (Hi + Lo) / 2 ) 
SET #999: RECORD Mid 
READ #999: Line$ 

LET Mid$ = Line$[1:Leng] 

IF Item$ = Mid$ THEN 


LET Found = 7 | BINGO! 
ELSE IF Item$ < Mid$ THEN 

LET Hi = Mid | It's in the 1st half 
ELSE 

LET Lo = Mid | It's in the 2nd _ half 
END IF 


LET Count = Count + 17 
LOOP UNTIL Found = 1 OR Count = NumBis 


IF Found = 1 THEN LET Pos = Mid 

END SUB 

SUB UnPack ( #999, Leng, Pos ) 
'Unpacks marks starting at position Leng + 1 
LET FmtName$ ="<" & Repeat$(”#”, Leng — 1) 


LET FmtMark$ = "####" 
SET #999: RECORD 1 ! Pointer to start 
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READ #999: Line$ 


LET Off = Num( Line$[1:8] ) | Unpack no. of offerings 
SET #999: RECORD Pos ! Move pointer to target 
READ #999: Line$ ! Read the line 


PRINT USING FmtName$: Line$[1:Leng]; ! Print name 
LET Start = Leng + 1 


FOR | = 1 TO Off 
LET Mk = Num( Line$[Start: Start + 7] ) 
PRINT USING FmtMark$S: Mk; | Print marks 
LET Start = Start + 8 
NEXT | 
PRINT 
END SUB 


11.7. Graphs without Graphics 


In Chapter 12 we will be looking at the graphics capabilities of True BASIC. You may, 
however, not have graphics facilities on your computer. The subroutine Grapher in this 
section makes use of the SET CURSOR statement to draw a rough graph of any function 
on the text screen. Its specifications are: 


SUB GRAPHER( X(), Y(), N, XF, XL, YD, YU, SYMBOLS, TITLES ) 


The user must specify how many points (N) are to be plotted. These points are to be 
stored in the two one-dimensional arrays X and Y, where X(l) and Y(l) are the x and y 
co-ordinates of the ith point to be plotted. These arrays must be set up by the main 
program before entry. The user also supplies the smallest and largest x co-ordinates for 
the plot (XF and XL), the lowest and highest y co-ordinates (YD and YU), the plotting 
symbol (SYMBOL$), and a title (TITLE$), which will be centred. 


Grapher prints the graph over a range of MAXCOL columns and MAXROW rows on the 
screen. These are local variables set in the subroutine, although you could just as easily 
pass them as parameters. The elements of X and Y have to be scaled into these ranges 
before the graph can be printed. This transformation requires some explanation. 


The element Y(l) of the array Y must be transformed to a row number IY, giving the row 
where the plotting symbol must be printed. Since we want a linear transformation (don’t 
we?), we must have 


IY =aY, + b, (1) 


where the constants a and b must be determined. The highest point on the graph (YU) 
must be transformed into row 1 (the top of the screen), so 


Ll=aYUr b. (2) 
The lowest point on the graph (YD) must be transformed into row MAXROW, so 
MAXROW = aYD + b. (3) 
Subtracting (2) from (3) immediately gives 

a = (MAXROW — 1)/(YD — YU) 
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and substituting back into (2) gives 

b6=1— YU(MAXROW — 1)/(YD — YU). 

These values for a and 5 may be used in (1) to give 

IY = (Y; — YU)(MAXROW — 1)/(YD — YU) +1. 

A similar transformation is used to scale X(I) into a column IX. The test program below 
shows how Grapher may be used to plot the damped oscillations discussed in Chapter 
SIX. 

‘Test program for Grapher 

DIM X(100) 

DIM Y(100) 

READ Q, R, C, L 


LET CYCLES = 2 
LET PERCY = 10 


LET NPTS = CYCLES * PERCY + 1 
LET FO = SQR( 1 / (L* C) )/ (2 * Pl) 

LET F1 = SQA(1/(L* C)-R*2/(4*L* 2))/ (2 * Pl) 
LET A =2* Pl * FO*2* Q/ Ft 

LETT = 0 


LET SYMBOLS | ST 
LET TITLES =”"CURRENT IN A RLC CIRCUIT INITIALLY CHARGED” 


CALL GRAPHER( X, Y, NPTS, XF, XL, YD, YU, SYMBOL$, TITLES ) 

DATA 1E—5, 1, 1E—5, 2E-3 

END 

SUB GRAPHER( X(), Y(), N, XF, XL, YD, YU, SYMBOL$, TITLES ) 
! General graphing subroutine as described in text 


CLEAR 
LET MAXROW = a 
LET MAXCOL = 


FOR | = 1 TO MAXROW 
PRINT ".” 
NEXT | 


SET CURSOR MAXROW, 1 
PRINT REPEAT$(”—", MAXCOL ) 
FOR!|=1TON 

LET IX = (X(I) — XF) * (MAXCOL — 1) / (XL—XF) + 1 
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LET IY = (Y(I) — YU) * (MAXROW — 1) / (YD— YU) + 1 
SET CURSOR IY, Ix 
PRINT SYMBOL$ 


NEXT | 

SET CURSOR 25, 1 

LET TITLES = TRIM$( TITLES ) ! Strip blanks .. 
LET LENG = LEN( TITLES ) | .. and centre title 


LET PAD = (MAXCOL — LENG) / 2 
LET TITLES = REPEATS("”, PAD ) & TITLES & REPEATS(””, PAD ) 
PRINT TITLES: 

END SUB 


Output: 


= 
—=—E—_—— SS SS SS SSS STS SS SK Se Se eK SK Ke SE SR SR SEE SE SS ES SS EE SE SS STE ee ee eee ee Se eS Se 


11.8. The INCLUDE Command 


When you start working with larger program units, it is often convenient to insert a 
whole file from a diskette into your current program. The command 


INCLUDE Filename 


will copy the file ‘‘Filename” from the diskette and insert it at the current line of the 
program being edited. (The current line is given by the last position of the cursor in the 
editing window before you move to the history window.) 


If you find yourself using INCLUDE to insert packages of functions and subroutines into 
your program, you should rather use the True BASIC Library facility, described below. 


11.9. Saving a Compiled Program 


At this stage you are probably beginning to write more complicated programs, which 
take a few seconds to compile before executing. You can save the compiled version on 
a diskette as follows. Suppose you want to compile a program called ‘Prog’. Make sure 
that the latest version has been saved. Its full name will be ‘‘Prog.tru’’. Now enter the 
command COMPILE. The source code (i.e. your uncompiled program) will disappear 
from the screen (which is why you should have saved it beforehand!). To save the 
compiled version, enter the SAVE command. It will be saved under the name 
‘“Prog.trc’’. True BASIC uses the extension “‘.tre”’ by default for a compiled program. 
Otherwise you can save it with any extension you please. If the compiled version has 
already been saved, you can REPLACE it. After compiling, use the RUN command (or 
press F9) to run the program. You can call it up later with OLD, and then run the 
compiled code, which will be faster than compiling from scratch every time. 
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11.10. Libraries 


If you frequently need to use a particular collection of external functions and 
subroutines, you can save them in a library file on a diskette. They will then be 
automatically called up when you run a program which needs them, without having to 
be physically included in the program. 


A library file must have the statement 


EXTERNAL 

as its first line. Thereafter, you may have the external function and subroutine 
definitions in any order. To use the library file, a calling program must include the 
statement 


LIBRARY "Filename’ 


where Filename ts the library filename. This name must be a string constant. More than 
one library file may be used at a time. The names of external functions in the library file 
must appear in DECLARE DEF statements in the calling program. The program then 
behaves as if all the library files appeared physically after its END statement. Obviously, 
no two functions or subroutines in library files in use simultaneously may have the same 
name. Library files may be compiled or uncompiled. For compatibility with ANS 
BASIC, the statements EXTERNAL FUNCTION or EXTERNAL SUB must appear at the 
beginning of every routine in a library file. This is also valid in True BASIC. 


The following is an example of a library file ““Plonk’’, containing a function and two 
subroutines: 


EXTERNAL 
! Demonstration Library file 


DEF Reverse$( Word$ ) 
LET Leng = Len( Word$ ) 


FOR | = 1 TO Leng 
LET Reverseg[l:l] = Word$[Leng + 1-—JI:Leng + 1-—I] 
NEXT | 


=<ND DEF 


SUB Tweedledum 
PRINT “Tweedledum” 
CALL Tweedledee 

END SUB 


SUB Tweedledee 
PRINT “Tweedledee” 
CALL Tweedledum 
END SUB 
It can be used by a program as follows: 
! Test program for Library file "Plonk’ 


LIBRARY "B:Plonk” 
DECLARE DEF Reverse$ 
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PRINT Reverse$( "Napoleon” ) 

CALL Tweedledum 

END 

The True BASIC diskette contains four library files of mathematical functions (such as 
the hyperbolic functions) not included in the formal definition of the language. These 
functions are listed in Appendix F of this book. 


11.11. The LOAD Command and Workspaces 


During a computing session, your workspace includes the True BASIC system and 
available memory, and also the history of the session and all active variables. You may 
add libraries to the workspace with the LOAD command: 


Ok. LOAD Lidl, Lib2, ... 


The advantage of this is speed and convenience, since True BASIC doesn’t have to 
search for the libraries on a diskette before compiling. Also, the libraries remain loaded 
for the whole session, or until removed with the FORGET command (which also clears 
all active variables and gives you more memory). 


If a loaded library depends on any routines outside itself, they must have been 
previously loaded. 


Functions loaded into the workspace do not need to appear in DECLARE DEF statements 
In calling programs. 


11.12. The CHAIN and PROGRAM Statements 


If you are a serious programmer, sooner or later you will write a program which won 
fit into your computer’s memory. You can get round this by breaking the program up 
into smaller independent complete programs (as opposed to subroutines), and using the 
CHAIN statement, e.g. 

CHAIN expr$ 


where expr$ must evaluate to the name of the file to be loaded and executed. All 
memory used by the original program is freed. Execution normally ends at the end of 
the chained program. However, the statement 


CHAIN expr$, RETURN 


returns control to the chaining program after the chained program has finished 
executing. In this case, the variables of the original program are retained (thus losing 
the main benefit of chaining). 


An argument, in the form of a string expression, may be passed to a chained program, 
as follows: 


CHAIN expr$ WITH ( arg$ ) 


OT 
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CHAIN expr$ WITH ( arg$ ), RETURN 
If an argument is passed, the chained program must begin with a PROGRAM statement 
which names the string variable to which the argument must be passed: 


PROGRAM Name ( var$ ) 

Name is required for syntactic reasons, and must be a valid variable name, but is 
otherwise totally ignored. The argument from the chaining program is passed to var$. 
Numbers can thus be passed (by value) to a chained program by packing them into the 
string argument. 


11.13. Modules 


True BASIC allows you to group external functions, subroutines and pictures into 
entities called modules. These procedures can share data which can be made invisible 
to the rest of the program. This obviates the need sometimes to have long sequences of 
parameters, which can be cumbersome and susceptible to errors. In addition, you may 
specify which procedures can be accessed from outside the module, and which cannot. 


A module has the following structure: 
MODULE Name 
PUBLIC varl, arrayl( size, ... ), ... 


PRIVATE routine, ... 
SHARE varl, arrayl( size, ... ), #COnsSt, ... 


statements Initialization code 

procedures 
END MODULE 
Variables and arrays specified in PUBLIC statements can be accessed from outside the 
module, and are in effect global variables, as long as they also appear in DECLARE 
PUBLIC statements in any program unit which is not part of the module. Items not 
named in PUBLIC statements cannot be accessed from outside. There is an example of 


the use of public variables in section 13.6. Subroutines, functions and pictures specified 
in PRIVATE statements may not be accessed from outside the module. 


Variables, arrays and channel numbers specified in SHARE statements may be shared 
among all procedures of the module, but may not be accessed from outside the module. 
Public items are automatically shared, but not vice versa. Arrays named in PUBLIC and 
SHARE statements must be dimensioned there. An array named in a DECLARE PUBLIC 
statement must be followed by empty parentheses, as in a subroutine definition. Any 
statements between the PUBLIC, PRIVATE and SHARE statements, and the module 
procedures, are called initialization code. The execution of this code is referred to as 
module initialization, and generally only happens once during a run, no matter how 
often procedures in a module might be referenced. Modules are initialized when a 
program is run, in the order in which they are encountered. All modules in the 
workspace are initialized first, followed by modules in library files, and finally those in 
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the current program. Library modules are only initialized if they are used, whereas all 
modules in the workspace and current program are initialized when the program is run. 


More than one module may appear in a library file, or at the end of a program after the 
END statement. 


There are more details in the True BASIC Version 2.0 Supplement, which you should 
consult if you plan to use modules on a large scale. 


There is an example of ‘“Turtle”’ graphics using a module at the end of section 12.1. 


The use of a module with certain variables shared between its (external) subroutines 1s 
generally better practice than the use of internal subroutines with all variables global. 


11.14. Calling MS-DOS from True BASIC 


Commands to the Operating System (MS-DOS) can be issued from inside True BASIC 
using the library file “SHELL.TRU” on the True BASIC System Disk. It must be 
loaded into the workspace: 


Ok. LOAD Shell 


Thereafter any MS-DOS command can be executed by calling the subroutine Dos, 
either from inside a program, or on the command line. E.g. 


CALL Dos( "Dir A:" ) 


The command is executed, after which you press Return to return to True BASIC. 
Alternatively, the statement 
CALL Dos(”” ) 


(with the null string argument) leaves you in MS-DOS until you issue the EXIT 
command to return to True BASIC. 


This feature can be very useful if, for example, you suddenly need to format a diskett¢ 
during a session. 


11.15. The GOSUB Statement 


This statement was used in older versions of BASIC in place of the CALL statement, ana 
is mentioned here purely for historical reasons. It takes the form 


GOSUB n 
where n is a line number. On execution, control is transferred to the statement in line 
number n, returning to the statement after the GOSUB when a RETURN statement Is 


reached. Such “‘subroutines” are internal, so their variables are global.GOSUB should 
obviously not be used in serious True BASIC programs. 


summary 


“ Good structured programming requires real problem-solving programs to be broken 
down into subroutines and functions. 
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* External functions, subroutines, pictures (Chapter 12) and the main program are 
called program units. 

“ External functions and subroutines have local variables, which are independent of 
any other program unit. 


* Internal functions and subroutines have global variables, which are shared with the 
program unit containing them, except for parameters received by functions, and 
expressions received by subroutines. 


* Functions may be defined in one line, or in a block. 

“ Functions and subroutines may be defined recursively. 

“ Variables listed in parentheses after a function or subroutine name when it is invoked 
are called arguments. Variables listed in the function or subroutine definition are 
called parameters. 

“ Arguments are passed to functions by value (changes to them in the function are not 
passed back to the calling program). 

“ Arguments to subroutines are passed by reference. Changes to the equivalent 
parameters in the subroutine are passed back to arguments, unless the arguments are 
expressions or substrings, in which case they are passed by value. 


“ Channels may be passed as arguments to subroutines only. They must be written as 
numeric constants in both the argument and parameter list. 


“ When arrays are listed as arguments only their names must be given, but their 
dimensionality must be indicated by parentheses in the parameter list. Arrays passed 
as arguments must not appear in a DIM statement in the function or subroutine. 


* Arrays should not be passed as arguments to a function, as they are passed by value, 
which is time consuming. 

* External functions and subroutines may be stored in library files (compiled or 
uncompiled) and called up when required. 

’ Independent programs may be chained to. 

“ Libraries that are frequently used should be loaded into the workspace. 


* Routines that share a lot of variables should be placed in a module. 


EXERCISES 


11.1 Write a program which uses the Newton quotient 
[f(x + h) — f(x) |/h 
to estimate the first derivative of f(x) = x° at x = 1, using successively smaller 
values of fA: 1, 1e—1, 1e—2, etc., etc. Use a one-line function for f(x). See section 
15.3 for the coding. 

11.2 Write your own True BASIC external function to compute the exponential 
function directly from the Taylor series: 
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11.4 


11.5 


ee] txt x27/2! + 2/3! 4+... 


The series should end when the last term is less than 1e—6. Test your function 
against the built-in Exp( X ) function. 


Write an external function Bin( N, R ) which returns the binomial coefficient, 
n'/[r\(n—r)!], as described in Chapter Six. Test your function against the True 
BASIC library function Binom(N, R ) in the library file “FNMLIB.TRC” on your 
True BASIC diskette. 

Write an external subroutine Quad( A, B, C, X1, X2, J ) which computes the roots 
of the quadratic equation 


ax* + bx +c=0. 
The parameters A, B and C (which may take any values) are the coefficients of the 


quadratic, and X1, X2 are the two roots (if they exist), which may be equal. J is 
a ‘‘flag’’ which must be set by the subroutine as follows: 


| 


—1: imaginary roots (discriminant < Q); 

= 0: no solution (a = b = 0, c #0); 

= 1: one root (a = 0, b #0, so the root is —c/b); 
= 2: two roots (which could be equal); 

= 99: any x is a solution (a = b =c = QO). 


Go. Ge ee le ee 


If a random variable X is distributed normally with zero mean and unit standard 
deviation, the probability thatO0 < X <vxis given by the standard normal function 
(x). This is usually looked up in tables, but it may be approximated as follows: 


®(x) = 0.5 — r(at + bt? + cf), where 


a = ().4361836 

bh = —0.1201676 

c = 0.937298 

r = exp(—0.5x7)/V (27) 
f= 1/1 + 0.3326x). 


Write an external function to compute ®(x), and use it in a program to print out 
its values for 0 < x < 4 insteps of 0.1. Compare your function with the True Basic 
function Norml( X ) in the library file ‘“FNMLIB.TRC” on the True BASIC 
diskette. 
Write a recursive function to compute the Fibonacci numbers F(0) to F(20), using 
the relationship 


Fin) = F(n—-1) + F(n-2), 


Starting with F(0) = F(1) = 1. Note how the recursion slows down the 
computation. See how far you can get before the memory is exhausted. 
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GRAPHICS 





A computer screen is covered with small phosphorous dots called pixels, which can be 
made to light up, giving an image on the screen. A microcomputer screen typically has 
a range of 200 pixels vertically and 320 or 640 pixels horizontally, depending on its 
resolution. To get reasonable graphics images in most computer languages you have to 
do some nifty arithmetic on the pixels to scale your solutions to fit onto the screen. And 
then if you change computers, you have to start all over again. However, a feature of 
True BASIC graphics is that you don’t need to worry about the pixels. The language 
does all the necessary scaling, which makes graphics programs immediately portably 
between machines (although shapes may change slightly). | 


12.1. Some Examples 
In this section, some examples of graphics programs are given. If yourun them, you . 
be able to pick up the basic concepts very easily. A more detailed discussion of the 


graphics statements follows in the next section, although the emphasis is on those that 
aid scientific and engineering problem-solving. 


sinusoidal Graphs 


The first example simply draws a sine curve over two cycles. Try it out. Press Return to 
get back to the history window. 


! Graph of Sine 


LET Xmin = —10 
LET Xmax = 10 
LET Ymin = —4 
LET Ymax = 4 


SET WINDOW Xmin, Xmax, Ymin, Ymax 
SET COLOR “white” 


FOR X = 0 TO 4 * Pj STEP Pi / 20 
PLOT X, Sin( X< ): 
NEXT X 


END 


Now try to find out what the SET WINDOW statement does, by experimenting with some 
different values for Xmin, Xmax, Ymin and Ymax. The statement is explained after the 
next example, which draws the graph of 
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f(x) = 4 sin(x) + cos(4x) 
over the range 0 to 27 in steps of 21/40. 
! A simple graph 


| LIBRARY "A:Graphlib” 
SET MODE “Hires” 
DEF F(X) = 4 * Sin( X ) + Cos( 4 * X ) 
SET WINDOW 0, 8, —8, 8 
| CALL Ticks( 1, 1 ) 
FOR X = 0 TO 2 * Pi STEP Pi/40 
PLOT X, F(X): 
NEXT X 


END 

The SET WINDOW statement defines the edges of the screen (the window) in terms of 
the co-ordinates of your problem. 

SET WINDOW Xmin, Xmax, Ymin, Ymax 

specifies the horizontal and vertical ranges of points that will be plotted on the screen. 
So in this example, the x-axis ranges from 0 to 8, which leaves enough room, since 27 
is about 6.28. You can change the scale of your graph simply by changing the values in 
the WINDOW statement. The co-ordinates in a graphics problem are usually called 
window co-ordinates, or sometimes problem or world co-ordinates. 


Try running the program without the SET MODE “‘Hires” statement, and see if you can 
notice any difference. Also try leaving out the semi-colon at the end of the PLOT 


statement. 

If you have the library file GRAPHLIB.TRU on your True BASIC diskette, remove 
the comment marks from the LIBRARY and CALL Ticks statements to have axes and tick 
marks drawn. If you make any alterations in the program, you will notice that a lot of 
time is spent getting GRAPHLIB from the diskette each time the program is compiled. 
This time can be saved by loading GRAPHLIB into the workspace. However, since 
GRAPHLIB references a user-defined function F( X ) (see Appendix F), an external 
function F(X ) must have been loaded before loading GRAPHLIB. It could be a totally 
useless “dummy’”’ function, in a library file as follows: 


EXTERNAL 
! Library file for f(x) 
DEF F( X ) = 0 


Tangents to a Curve 

This program draws intersecting lines which approximate tangents to a curve. It is 
similar to the problem in Ex. 3.1. 

! Tangents to Curve 


SET MODE “Hires” 
LET XMax = 100 
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LET YMax = 100 
SET WINDOW 0, XMax, 0, YMax 


PLOT 0, 0; Xmax, 0 | Draw X—axis 
PLOT O, 0; 0, YMax | Draw Y-axis 
LET Del = 5 
FOR Inc = Del TO Xmax STEP Del 

PLOT Inc, 0; 0, YMax — Inc ! Draw the lines 
NEXT Inc 
END 


As an experiment, insert the statement 
OPEN #1: SCREEN 0, .5, O, .5 ! Use only part of the screen 


anywhere before the SET WINDOW statement. You should find that only a quarter of the 
screen is used. This statement has opened a window in that section of the screen. You 
can have many windows open in different parts of the screen, with different things 
happening in all of them. Windows are discussed in more detail below. 


Fourier Approximation to a Square Wave 


This program plots the Fourier approximation to a square wave using the formula 
quoted in Ex. 6.7. It has an infinite loop which allows you to specify different values of 
N (the number of terms in the Fourier series). The graphs stay on the screen, so you can 
see the effect of increasing N. To stop the program, you will have to press Ctrl-Break, 
followed by Return to get back to the history window. Note that text on the graphics 
screen looks different to the text you normally see on the screen. 


! Fourier approximation to a square wave 


DECLARE DEF FourSqu ! External function 
SET WINDOW —2, 2, —2, 2 
SET MODE “hires” 


DO 
SET CURSOR 24, 1 
INPUT PROMPT "Value of N:”: N 


FOR T = —1 TO 1.001 STEP 0.01 
PLOT T, FourSqu( N, T ); 
NEXT T 


PLOT 

SET CURSOR 24, 1 

PRINT ” : |! Blank out input line 
LOOP 
END 
DEF FourSqu( N, T ) | Fourier for square wave 


FOR K=O TON 


LET Sum = Sum + Sin( (2 * K + 1) * Pi * T )/ (2 * K + 1) 
NEXT K 
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LET FourSqu = Sum * 4/ Pi 
END DEF 


Capacitor Charge and Discharge 


This program plots the charge on a capacitor (C) connected in series with a battery (V) 
and a resistor (R) during successive periods of charging (switch closed) and discharging 
(switch open). While charging, the charge on the capacitor is given by 

Pe (O CY Je Ot ey 

and while discharging it is given by 

q(= Oe. 

In both cases, Q is the initial charge on the capacitor when the switch was last opened 
or closed, and ris the time elapsed since that moment. In the program, T represents this 
time, while Tim is the total time that has elapsed. 


! Capacitor charge and discharge 


SET WINDOW 0, 30, —10, 10 
SET MODE “hires” 


LET Ch = 0 ! Charge on capacitor 
LET Tim = 0 | Total time elapsed 
LET V = 5 ! Voltage 
LET R = 1 ! Resistance 
LET C = 7 | Capacitance 
LET DT = 0.1 
LET Steps = 50 ! Cycle time 
FOR J = 1703 | 3 cycles 
LET Q = Ch | Initial charge 
LET T = 0 ! Time in cycle 
FOR | = O TO Steps 
PLOT Tim, CH; 


LET T = T + Dt 
LET Tim = Tim + Dt 
LET Ch = (Q—C * V) * Exp(-—T/(R*C))+C%*V 


NEXT | 
LET Q = Ch 
LET T = 0 
FOR | = 0 TO Steps 
PLOT Tim, Ch; 
LET T = T + Dt 
LET Tim = Tim + Dt 
LET Ch = Q * Exp(—T / (R * C) ) 
NEXT | 
NEXT J 


END 
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Angle of Launch for Maximum Range 


This is an educational program of use to students learning Newtonian dynamics. The 
problem is to find, by trial and error, the launch angle for a projectile to give it the 
maximum horizontal range (see section 4.1 for the equations of motion). After each 
attempt, the trajectory of the projectile is left on the screen, together with the best angle 
used so far. Two windows are used: one for the projectile, and one for the text. Note 
that the text window can be cleared without affecting the other window. 


! To find angle of launch for maximum range 
! Demonstrates use of windows 


SET MODE "Hires” 


OPEN #1: SCREEN 0O, 1, .2, 1 |! Graph window 
OPEN #2: SCREEN 0, 1, 0, .19 |! Text window 
WINDOW #1 


SET WINDOW 0O, 500, 0, 300 
PLOT 0, 0; 500, O 
PLOT 0, 0; 0, 300 
READ U, G, Dt 
OPTION ANGLE DEGREES 
LET Xmax = 0 Maximum range 
LET AngMax = 0 Angle for maximum range 
LET Format$ = "Best angle so far: ###.#” 
DO 
WINDOW #2 ! Print in text window 
CLEAR 
PRINT USING Format$: AngMax 


INPUT PROMPT "Enter launch angle in degrees (0 to stop):”: Ang 
LEE Ke ¥ oh =O 


Co-ords for projectile 
Draw axes 


Projectile data 
Angles in degrees 


WINDOW #1 ! Back to graphics 
DO WHILE Y >= 0 ! Launch the projectile 
PLOT X, Y: 
LET f = 7 -- Di 
LET X = U * Cos( Ang ) * T 
LET Y = U * Sin( Ang) * T-G*T7*2/2 
LOOP 
PLOT | Finish off 
IF X > Xmax THEN | This is a new record 


LET Xmax = X 
LET AngMax = Ang 
END IF 
LOOP UNTIL Ang = 0 
DATA 70, 9.8, 0.1 
END 


Fractals with Turtle Graphics 


The following module, from the True BASIC Version 2.0 S upplement, simulates LOGO 
“Turtle” graphics. The turtle (which is not shown, although its path is drawn) can turn 
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left or right a given number of degrees, and can move forward or back a given distance. 


MODULE Turtle 
SHARE X, Y, A ! Current location and angle 


OPTION ANGLE DEGREES 
CALL ClearScreen 


SUB ClearScreen 
CLEAR 
SET WINDOW -—140, 140, —120, 120 
LET X, Y = 0 
LET A = 90 ! Head upwards 
END SUB 
SUB Left( dA ) 
LET A= A+dA 
END SUB 


SUB Right( dA ) 
LET A = A—dA 


END SUB 
SUB Forward( D )} 
LET dX = D * Cos( A ) 
LET dY = D * Sin( A ) 
LET NewX = X + dX 
LET NewY = Y + dyY 
PLOT LINES: X, Y; NewX, NewY 
LET X = NewX 
LET Y = NewY 
END SUB 


SUB Back( D ) 
CALL Forward( —D ) 
END SUB 


END MODULE 


The module may be saved as a file and loaded into the workspace as it stands. It can be 
used with the following program, which draws trees using a recursively defined shape, 
called a fractal (Mandelbrot, 1982). The program draws a tree with a vertical stem of 
height Leng, which branches symmetrically, so that Ang is half the angle between the 
branches. Each branch is made a fraction Frac of the stem, and branches in the same way 
as the stem. New branches are always a fraction Frac of their “‘parent” branches. This 
pattern is repeated while the branches remain longer than two units. With a little 
thought you should be able to see how the recursive routine Tree does this. Values of 
60, 0.7 and 90 for Leng, Frac and Ang respectively give a fairly common or garden tree, 
while values of 50, 0.6 and 20, for example, give a slightly less usual looking tree. The 
program is as follows (remember to load the module Turtle first): 


[Recursive Tree 
!'Uses Module Turtle 
[Load Module so it will be initialized immediately 


SET MODE “Hires” 
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INPUT PROMPT "Leng, Frac, Ang:”: Leng, Frac, Ang 


SET COLOR "black” |! Pen up 

CALL Back( 120 ) ! Plant the tree on the ground 
SET COLOR “white” ! Pen down 

CALL Tree( Leng, Frac, Ang ) 

END 


SUB Tree( Leng, Frac, Ang ) 

IF Leng <2 THEN EXIT SUB 

CALL Forward( Leng ) 

CALL Left( Ang ) 

CALL Tree( Frac * Leng, Frac, Ang ) 

CALL Right( Ang + Ang ) 

CALL Tree( Frac * Leng, Frac, Ang ) 

CALL Left( Ang ) 

CALL Back( Leng ) | Must get back to where we started 
END SUB 


12.2. Graphics Statement 
The SET WINDOW Statement 


As we have seen, this defines the range of co-ordinates for your graphics window: 
SET WINDOW xmin, xmax, ymin, ymax 


Any points that fall outside the window are ignored (clipped). If ymin > ymax, the 
graph will be drawn upside down, and if xmin >xmax, it will be reversed. The default 
co-ordinates (in the absence of a SET WINDOW statement) are from (0; 0) to (1; 1). 
Window co-ordinates may be changed at any stage during a program. The screen will 
not be cleared, unless the CLEAR statement is used. SET WINDOW resets the foreground 
colour to its default value (see section 12.5). You can find out the current window 
co-ordinates with 


ASK WINDOW xmin, xmax, ymin, ymax 

You can find out how many pixels there are in the current window with the statement 
ASK PIXELS xwidth, ywidth 

You can then address individual pixels if you set your window with 


SET WINDOW 1, xwidth, 1, ywidth 


The PLOT Statements 


PLOT POINTS: xl, yl; x2, y2;... 


plots the points (x/; y/), etc., without joining them with lines. (x/ and yl are the x and 
y co-ordinates of the first point.) If there is only one point in the list of points, the 
POINTS: part may be omitted, e.g. 


PLOT xJ, yl 
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The statement 


PLOT LINES: x/, yl; x2, y2;... 

plots the points and joins them with lines. The LINES: part may always be omitted. If 
there is a semi-colon after the last point, the “‘pen”’ stays down, and a line will be drawn 
to the next point mentioned in a PLOT statement. So 


PLOT xl, yl; x2, y2; 
PLOT x3, y3 


joins the three points, whereas 

PLOT xl, yl; x2, y2 

PLOT x3, y3 

joins the first two points only, and plots the third point by itself. A solitary PLOT 
statement with no point in its list may be used to prevent an unwanted line from being 
drawn (this is similar to the way PRINT works). 

The library file RELPLOT.TRU on the True BASIC System diskette contains a 
module for plotting in “‘relative’’ co-ordinates. It is described in Appendix F. 

The PLOT AREA statement draws the outline of a region and then shades the whole 
region with the current colour: 


PLOT AREA: xJ, yl; x2, y2;... 


A line is drawn from the first point to the second point, from the second point to the 
third one, and so on. Finally, the figure is closed up with a line from the last point to the 
first one, and shaded. The following program is from the True BASIC Reference 


Manual: 


! Covers the screen with random coloured rectangles 


Randomize 
ASK MAX COLOR ColourMax ! How many colours? 
DO 
SET COLOR Int( Rnd * ColourMax ) + 1 ! Pick another colour 
LET X1 = Rnd 
LET X2 = Rnd 
LET Y1 = Rnd 
LET Y2 = Rnd 
PLOT AREA: X1, Y1; X1, Y2; X2, Y2; X2, Y1 
LOOP 
END 


If the boundary of the figure crosses itself, a point is considered to be “‘inside”’ the figure 
if an imaginary line drawn from it in any direction crosses the boundary an odd number 
of times (this is the Jordan Curve Theorem). A point is also considered to be inside if 
It lies on the boundary. This can give rise to some interesting shapes, e.g. 

PLOT AREA 0, 1; 1, 1; 0, 0; 1, 0 


with default window co-ordinates. 
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The PLOT TEXT statement may be used to print text on the screen 
PLOT TEXT, AT x, y: expr$ 


Text cannot be positioned arbitrarily, but only at the nearest cursor position of the 
equivalent text mode (see below for a discussion of modes). The string expr$ is printed 
so that its lower left corner is at the point with window co-ordinates (x; y). The Using$ 
function can be used with PLOT TEXT to label graphs. E.g. the statement 


PLOT TEXT, AT 0, 0: Using$("##.##", 1.235 ) 


with default window co-ordinates prints the value 1.24 in the bottom lefthand corner. 
The built-in function Str$ can also be used with PLOT TEXT. 


The SET TEXT JUSTIFY statement may be used to place the text in a PLOT TEXT 
statement more precisely. Its general form is 


SET TEXT JUSTIFY horiz$, vert$ 


If horiz$ is ““LEFT’’, ““RIGHT” or ““CENTER”’, the specified point (x; y) in any 
following PLOT TEXT statements is at the left, right or centre of the text respectively. If 
vert$ is “TOP” or ‘SHALF”’, the specified point is at the top or centre of the text. If vert$ 
is “BOTTOM or ““BASE”’, the specified point is at the lowest pixel on lowercase or 
uppercase text respectively. The Version 2.0 Supplement warns that the vertical position 
of text is still rounded to the nearest character position on the IBM PC. 


The following program gives an example of SET TEXT JUSTIFY. A white box is drawn 
with its lower lefthand corner at the origin to help you see where the text goes. 

SET WINDOW —10, 10, —10, 10 

SET COLOR "white” 

BOX LINES O, 1, 0, 1 

SET COLOR "cyan” 

SET TEXT JUSTIFY "right’, “base” 

PLOT TEXT, AT 0,0: "LOWERupper’ 

END 


You can find out the current positions for plotting text with 
ASK TEXT JUSTIFY horiz$, vert$ 


You can also use the two-dimensional TAB or SET CURSOR with PRINT to print text on 
the graphcis screen in any of the character positions. 


In addition to the PLOT statements described here, there are three MAT PLOT statements 
which are discussed in Chapter 14. 


The BOX Statements 


Each of these statements works on a box on the screen defined between xmin, xmax (lett 
and right sides) and ymin, ymax (lower and upper sides). They are all faster to execute 
than the corresponding PLOT statements, and easier to use. 


BOX LINES xmin, xmax, ymin, ymax 
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draws the outline of a box. 


BOX ELLIPSE xin, xmax, ymin, ymax 

draws the outline of an ellipse that just fits inside the given box. You may use the word 
CIRCLE instead of ELLIPSE. This statement is extended by the pictures (see below) 
BoxArc, BoxSector, BoxWedge and BoxDisk in the library file ARC.TRU on the True 
BASIC System diskette. They are described in Appendix F. 


BOX AREA xin, xmax, ymin, ymax 

draws the given box and fills it in with the current colour. It is much faster than PLOT 
AREA. 

BOX CLEAR xin, xmax, ymin, ymax 

fills the given box, including the edges, with the background colour (1.e. draws a hole). 


BOX KEEP xmin, xmax, ymin, ymax IN var$ 


allows you to store a copy of the image on the screen in the given box. It is stored in the 
variable var$, and may be displayed elsewhere on the screen with the statement 


BOX SHOW var$ AT xmin, ymin 
where x771/n, ymin specify where the lower lefthand corner of the image must go. This 
is the basis of animation. 


Animation 
The following program moves a little box sedately across the screen: 


[Animated box 


SET WINDOW —1, 20, —10, 10 
BOX AREA —1, 1, —1, 1 
BOX KEEP —1, 1, —1, 1 IN Box$ 


FOR | = -—1 TO 20 STEP 1 
BOX CLEAR I, | + 2, -—1, 1 
BOX SHOW Box$ AT | + 1, —1 
PAUSE 0.05 

NEXT | 


END 


The string variable from a BOX KEEP may be written to a byte file, to be read back at 
a later stage and shown with BOX SHOW. In this way, an image can be stored on a 
diskette. The next program draws a box on the screen, writes it to a byte file, clears the 
screen, reads the image back from a byte file, and displays the retrieved image on the 
screen. Note that the RECSIZE option is not needed (the record size is arbitrary). 


Writes screen image to a byte file on a diskette, 
reads it back, and puts it on the screen 


OPEN #1: NAME "B:Pic.Byt”, ORGANIZATION BYTE, CREATE NEWOLD 
ERASE #1 ! empty the file 
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SET WINDOW —10, 10, —10, 10 
SET MODE “hires” 


BOX AREA —5, 5, —5, 5 ! the image to be kept 

BOX KEEP —5, 5, —5, 5 IN Image$ | keep it 

WRITE #1: Image$ ' write it to the file 

CLEAR ! rub it out 

LET Image$ =”” | destroy it 

PRINT "Press RETURN to get the image from the file ...” 

GET KEY ZZ | wait 

SET #1: POINTER BEGIN ! reset pointer 

DO WHILE MORE #1 
READ #1, BYTES 1000: X$ ! read the image in blocks of 1K 
LET Copy$ = CopyS & X$ 

LOOP 

BOX SHOW Copy$ AT —5, —5 ! show it 

CLOSE #1 

END 


A more general form of BOX SHOW is 
BOX SHOW var$ AT xmin, ymin USING expr$ 


where expr$ can have the values “AND”, “OR” or “XOR” (in any mixture of upper- 
and lowercase) and determines what happens to screen pixels already ‘‘on” when the 
image 1s superimposed on them. With ““AND”, the new pixel is “on” only if the screen 
pixel and the superimposed pixel are both “‘on’”’. With “OR”’, the new pixel is ‘off’ only 
if the screen pixel and the superimposed pixel are both “‘off”’. With “XOR”’, the new 
pixel is ‘‘on”’ only if the screen pixel and the superimposed pixel are in different states. 
There 1s a further generalization of BOX SHOW which allows any of 16 possible 
combinations of screen and superimposed images. Details may be found in the 
Reference Manual. 


The following program shows a red steam engine puffing green clouds of smoke as it 
moves along a yellow railway line on a blue background. The unusual arguments for 


SET WINDOW are used in order to translate the program from Microsoft (Street!) 
BASIC (Hahn, 1988). 


IChook-puff animation 
SET WINDOW 0, 319, 0, 199 


CLEAR 

SET BACK “blue” ! background colour 
LET dx = 4 | animation step-length 
LET NumPuff = 5 ! puffs in smoke trail 
SET COLOR “green” 

PLOT 0, 86; 320, 86 | draw the railway line 


SET COLOR "red” 

INow draw the engine ... 

PLOT O, 100; 5, 100; 5, 95; 13, 95; 

PLOT 13, 100; 15, 100; 15, 95; 16, 95; 

PLOT 16, 89; 15, 89; 15, 87; 13, 87; 13, 89; 8, 89; 8, 87; 6, 87; 
PLOT 6, 89; 3, 89; 3, 87; 1, 87; 
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PLOT 1, 89; 0, 89; 0, 95; 3, 95; 3, 98; 

PLOT 0, 98; 0, 100 

FLOOD 1, 99 |... colour it in ... 
BOX KEEP 0, 16, 87, 100 IN Chook$ ! ... and keep it 


SET COLOR "yellow” 

|... then a puff of smoke 

PLOT 15, 106; 15, 107; 16, 107; 

PLOT 16, 108; 17, 108; 17, 109; 16, 109; 
PLOT 16, 110; 15, 110; 15, 111; 

PLOT 12, 111; 12, 110; 11, 110; 11, 109; 
PLOT 10, 109; 10, 108; 11, 108; 

PLOT 11, 107; 12, 107; 12, 106; 15, 106 
FLOOD 14, 108 ! ... colour it ... 
BOX KEEP 10, 17, 106, 111 IN Puff$ ! .... and keep it 
SOUND 100, 0.2 


INow send it along the line leaving a puff of smoke 
FOR X = dx TO 300 STEP dx 
BOX SHOW Chook$ AT X — dx, 87 USING "XOR” —_!rub out old engine 


BOX SHOW Chook$ AT X, 87 ldraw the new one 
IF Mod( X, 4 * dx ) = 0 THEN louff every 4th step 
PAUSE 0.4 


BOX SHOW Puff$ AT X + 10, 106 
LET XOld = X + 10—4 * NumPuff * ax 
IF XOld >= 0 THEN BOX SHOW Puff$ AT Xold, 106 USING "XOR"! ... 
... rub out last puff 
SOUND 100, 0.2 
END IF 
NEXT X 


PAUSE 1 
SOUND 200, 1 
END 


[he Aspect Ratio 


You’ve probably noticed by now that circles and squares on the screen aren’t (cf. the 
programmer’s lament, ‘“‘Constants aren’t and variables won’t.’’). This 1s because True 
BASIC graphics is deliberately not hardware dependent, and the appearance of squares 
and circles depends on the number of pixels on the screen, and the physical dimensions 
of the monitor. You can, however, discover by trial and error what the “aspect ratio” 
of your monitor is, using the following program. All you need to do is to adjust the value 
of Xmin until the box on the screen is square enough for you (the value below is for an 
Olivetti M24) 


!Aspect ratio 


SET MODE “hires” 
LET Xmin = —13.4 
LET Xmax = —Xmin 


GRAPHICS 183 


SET WINDOW Xmin, Xmax, —10, 10 
BOX LINES —10, 10, —10, 10 
END 


The FLOOD Statement 


The statement 
FLOOD x, y 


draws the point (x; y) in the current colour and shades the surrounding area up to, but 
not including the nearest boundary with the current colour. E.g. 


SET WINDOW —10, 10, —10, 10 
BOX CIRCLE —10, 10, —10, 10 
FLOOD 0, O 


draws a circle to fill the screen, and shades it with the current colour. The boundary of 
the figure is left in the original colour. The next program draws a white box, 
alternatively floods it with red and the background colour, and finally rubs it out (colour 
is discussed in sections 12.5 and 12.6): 


SET WINDOW —10, 10, —10, 10 
SET COLOR “white” 
BOX LINES —2, 2, —2, 2 
rOR l= 1 TOS 
SET COLOR "red” 
FLOOD 0O, 0 
SET COLOR "background” 
PAUSE 0.5 
FLOOD 0, 0 
PAUSE 0.5 
NEXT | 


SET COLOR "background” 
BOX LINES —2, 2, —2, 2 
END 


FLOOD is not supported by all computers. 


Graphic Input 


When the statement 
GET POINT: x, y 


is executed the graphics cursor (usually indicated by crosshairs) appears on the screen. 
This cursor may be moved by the usual cursor keys. The left, right, up and down arrows 
move the cursor pixel by pixel, while the the Home, End, PgUp, PgDn, Tab and Shift- 
Tab keys allow more rapid movements. When the Return key is pressed, the cursor’s 
current position is assigned to the variables x and y. The following program allows you 
to draw arbitrary shapes on the screen by moving the graphics cursor around. Every 
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time you press Return the PLOT statement joins that point to the previous one. You'll 
have to use Ctrl-Break to stop the program. 


'Graphic Input 
SET WINDOW —10, 10, —10, 10 


DO 
GET POINT: X, Y 
PLOT X, Y; 
LOOP 
END 


The CLEAR statement does not move the graphics cursor. 
If your computer has a mouse, the statement 


GET MOUSE: x, y, state 
will return the mouse position and state immediately. The possible mouse states are: 
Q (no button down), 1 (dragging), 2 (button clicked here), 3 (button released here). 


12.3. Windows 


The screen can be divided up into a number of windows, all doing their own thing. The 
following program demonstrates the use of windows to enable school children to draw 


multiple straight line graphs: 
[Uses three windows: Graph, Heading and Working 
DEF f(x) =>m*x+ec ! function to be drawn 


LET right = .73 ! dimensions of graph window 
LET bottom = 0 


LET xmin = —10 


LET xmax 10 

LET ymin = —10 

LET ymax = 10 

LET tic = .2 

LET axint = 1 

LET dx = .1 

LET headbottom = .6 ! bottom of heading window 
OPEN #1: screen 0, right, bottom, 1 | graph window 


OPEN #2: screen right + 0.01, 1, headbottom, 1! heading window 
OPEN #3: screen right + 0.01, 1,0, headbottom ! working window 
WINDOW #1 

SET mode “hires” 

SET window xmin, xmax, ymin, ymax 

CALL axes 

WINDOW #2 

PRINT "Draws  y = mx + c” 

PRINT 

PRINT “OPTIONS are:” 

PRINT 

PRINT "D: Draw graph” 
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PRINT ”"C: Clear screen” 
PRINT "E: End” 


DO 
WINDOW #3 
CLEAR 
PRINT "Option? ”; 
GET KEY ask 
PRINT chr$( ask ) 
IF ask = Ord("d”) or ask = Ord("D”") then 
CALL graph 
ELSE if ask = Ord(”C'’) or ask = Ord("c”) then 
CALL clean 
END IF 
LOOP until ask = Ord(”E”) or ask = Ord("e" ) 


PRINT “Press RETURN ...” 


SUB axes 
[Draws and labels axes 


WINDOW #1 

BOX LINES xmin, xmax, ymin, ymax 
PLOT LINES: 0, ymin; 0, ymax  !axes 
PLOT LINES: xmin, 0; xmax, 0 


FOR x = xmin + axint to xmax — axint step axint 
PLOT LINES: x, 0—tic; x, 0 + tic 
NEXT x 


FOR y = ymin + axint to ymax — axint step axint 
PLOT LINES: 0 —tic, y; 0 + tic, y 

NEXT y 

PLOT TEXT, at xmax — 1, 0.5: "X” 

PLOT TEXT, at 0.5, ymax — 1.25: "Y" 

PLOT TEXT, at 0, 0:”0” 

PLOT TEXT, at xmax —1, —1: str$( xmax — 1) 

PLOT TEXT, at xmin + 0.5, —1: str$( xmin + 1) 

PLOT TEXT, at —1, ymax — 1.25: str$( ymax — 1) 

PLOT TEXT, at —1, ymin + 0.5: str$( ymin + 1) 
END SUB 


SUB clean 
| Clears window #1 and redraws axes 
WINDOW #1 
CLEAR 
CALL axes 

END SUB 

SUB graph 
! Actually draws the line 
PRINT 
INPUT prompt”m? ”: m 
INPUT prompt”’c? ”: c 


_- 
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WINDOW #1 
PLOT LINES: xmin, f( xmin ); xmax, f( xmax ) 


END SUB 
END 


Windows are rather like files, and must have a channel connected to them. The output, 
however, always appears on the screen. The default window (#0) is always open, and 


is what you’ve been using all the time up to now. 
The statement 
OPEN #expr: SCREEN /eft, right, bottom, top 


defines a window in terms of screen co-ordinates, which are universal whatever the 
actual size of your screen. The bottom left corner is (0; 0), while the top right corner is 


(1; 1). 

You can find your current window’s screen co-ordinates with 

ASK SCREEN /eft, right, bottom, top 

Once a window is opened, it is the current window, and any output goes to it. You can 
change windows with the statement 

WINDOW #expr 

which causes all subsequent output to go to the specified window, until another 
WINDOW statement Is executed. 


The SET WINDOW statement applies only to the current window. Different windows can 
therefore have different window co-ordinates. 


Overlapping windows are handled differently by different computers. 
A window may be closed with the statement 


CLOSE #expr 
A closed channel may no longer be used. 


The SET CURSOR and ASK CURSOR statements work relative to the current window. 


12.4. Pictures and Their Transformations 


Pictures are like subroutines. A shape may be defined as a picture, and then drawn 
anywhere on the screen, rotated, scaled, or sheared. The following example defines a 
picture Square of length Size, with the bottom left corner at the origin. The picture is 
used to draw a set of squares of different sizes: 


'A Picture 
SET WINDOW —10, 10, —10, 10 


FOR Leng = 1 TO 10 
DRAW Square( Leng ) 
NEXT Leng 
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END 
PICTURE Square( Size ) 
[Draws a square 


PLOT O, 0; 
PLOT Size, 0; 
PLOT Size, Size; 
PLOT 0, Size; 
PLOT 0O, 0 

END PICTURE 


The general form of a picture Is 


PICTURE Name( paramIl, param2, ... ) 
PLOT .. 


END PICTURE 
A picture 1s invoked with a DRAW statement: 
DRAW Name(argl, arg2, ... ) 


Pictures are the exact graphic analogues of subroutines. They may be internal or 
external, their parameters (which may include channels) are passed by reference, and 
they may be included in library files. For compatibility with ANS BASIC, the word 
EXTERNAL should be inserted in front of the word PICTURE in the definition of an 
external picture. 


Pictures may not change the graphic co-ordinate system from which they are called, 1.e. 
they may not include SET WINDOW or OPEN SCREEN statements in their definitions. 


Pictures may be transformed in DRAW statements. The following example shows a 
square which 1s rotated and scaled: 


‘Example of a Picture with Transformation 


SET WINDOW —10, 10, —10, 10 
OPTION ANGLE DEGREES 


FOR | = 1 TO 10 
DRAW Square( 5 ) WITH Rotate (1 * 36 ) * Scale( 1/1 7% 0.5 ) 
NEXT | 


END 

PICTURE, Square( Size ) 
PLOT 0O, 0: 
PLOT Size, 0: 
PLOT Size, Size; 
PLOT O, Size; 
PLOT 0, O 

END PICTURE 


The DRAW statement may be extended to handle transformations as follows: 
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DRAW Namie WITH transl * trans2 * ... 

One or more of the following transformations may be used: 

SHIFT( a, 5 ) slides the picture. The points (x; y) are transformed to the points (x + a; 
y + b). 

SCALE( a ) changes the size of the picture. The points (x; y) are transformed to the 
points (ax; ay). 

SCALE( a, 5 ) also changes the size of the picture. The points (x; y) are transformed to 
the points (ax; by). 

ROTATE( a ) rotates the picture a radians (or degrees, if OPTION ANGLE DEGREES has 
been executed) counterclockwise about the origin of the window co-ordinates. 
SHEAR( a ) leans all vertical lines in the picture forward (clockwise) by @ radians (or 
degrees). The points (x; y) are transformed to the points (x + y tan(a); y). 


The BOX statements, and the PLOT TEXT statement will not be transformed. They can 
be included in the picture definition, but the transformation will have no effect on them. 


The following example also uses multiple transformations: 


! ROTATING BOXES 


SET WINDOW -—5, 5, —4, 4 
FOR | = 0 TO 100 
DRAW BLOCK WITH ROTATE( | * PI/13 ) * SCALE( 3.5/( 0.5 * I+1) ) 


PAUSE 1 
CLEAR 
NEXT | 
PICTURE BLOCK 
uO A oh ty Lede ty hy dy 
FLOOD 0, 0 
END PICTURE 
END 
The built-in transformations are actually (4 X 4) arrays. You can define your own 
transformations and use them in place of the built-in ones. See the Reference Manual 


for details. 


Mrawing a Snowflake 

Pictures may themselves call other pictures. The next program uses graphic input and 
pictures to allow the user to design a snowflake. Since a snowflake is hexagonal, all you 
need to do Is to draw half of one “‘arm’’. 

The picture Raw below if called untransformed will draw the original template. The 


picture Half shifts it to start at the origin. The picture Full draws Half as well as Half 
reflected in the x-axis. The main program finally draws Full six times, rotating it each 


time by 60°. 
The graphics cursor Is not initialized to the centre of the screen, so it is necessary to find 
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its initial position, plot it, and use this position to transform all the points of the 
template, so that the first point is at the window origin (otherwise the snowflake will 
look rather weird!). Assuming that the flake must cover the whole screen, a point 1s 
plotted initially to show you where to end. When starting, press Return, before moving 
the cursor, to register the starting point. Thereafter, you can define the outline of the 
flake by pressing Return every time you want to draw a new line. The complete flake 
will be drawn as soon as you pass the x co-ordinate of the tip marker. Try it out — you 
can draw beautiful snowflakes! 


[Uses pictures to draw a snowflake 


SET MODE “hires” 


DIM X(100) 

DIM Y(100) 

OPTION ANGLE DEGREES 

LET Xmax = 13.4 [Aspect ratio 

SET WINDOW —Xmax, Xmax, —10, 10 

LET EndFlake = 10 IMarker for tip of flake 

GET POINT Ox, Oy IFind out where the cursor is 
PLOT Ox + EndFlake, Oy [Draw the position of the tip 
PLOT Ox, Oy IDraw centre of flake 

PLOT Ox, Oy; [Prepare to join it to next point 
LET X(1) = Ox 

LET Y(1) = Oy 

LET -Ne= 4 

DO Draw template while getting 


LETN=N41 
GET POINT: X(N), Y(N) 
PLOT X(N), Y(N): 
LOOP UNTIL X(N) > EndFlake + Ox 


PLOT 
CLEAR 


FOR J = 1 7T0O 6 INow draw the flake 
DRAW Full WITH Rotate ( (J-—1) * 60 ) 
NEXT J 


PICTURE Full 
(Full arm 


DRAW Half 
DRAW Half WITH Scale( 1, —1 ) lReflect in x-axis 
END PICTURE 


PICTURE Half 
'Half arm centred at origin 


DRAW Raw WITH Shift( — Ox, — Oy ) 
END PICTURE 


PICTURE Raw 
lOriginal template 


FORI=1TON 
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LET X(Il) = X(I) 
LET Y(I) = Y‘(I) 
PLOT X(l), Y(I); 
NEXT | 
PLOT 
END PICTURE 
END 


Recursive Pictures 

Pictures may also call themselves, like subroutines. The following program draws a 
family of boxes in this way: 

lExample of a recursive Picture 


SET WINDOW —10, 10, —10, 10 
OPTION ANGLE DEGREES 


LET SIZE = 10 
DRAW Shape( Size ) 
END 


PICTURE Shape( Size ) 

IF Size <1 THEN EXIT PICTURE 

IDRAW here .. 

PLOT —Size, —Size; 

PLOT Size, —Size; 

PLOT Size, Size; 

PLOT —Size, Size; 

PLOT —Size, —Size 

DRAW Shape( 0.8 * Size ) WITH ROTATE ( Size ) ! .. or here 
END PICTURE 


Moving the DRAW statement as shown causes the boxes to be drawn in a different order, 
because of the way recursion works. Note that the EXIT PICTURE statement may be used 


to get out of a recursive picture. 


12.5. True BASIC Colour Graphics 


True BASIC has ten built-in colours, with the following names: 


red cyan 
magenta brown 
yellow white 

green black 

blue background 


ese colours may be referred to by a string of the same name, or by number (which is 
machine dependent). When an image is plotted on the graphics screen, the ‘‘fore- 
ground” colour is used. It can be selected in two ways: 


SET COLOR expr$ 
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SET COLOR expr 


where expr$ evaluates to one of the above names, or expr to the appropriate number. 
The statements 


ASK COLOR var$ 
ASK COLOR var 


may be used, as in the following program, to determine the current colour: 
| Test for foreground colours 
SET WINDOW 0, 10, 0, 10 


FOR | = 0 TO 6 

SET COLOR | 

ASK COLOR Colour$ 

PLOT TEXT, AT 0, 9-—I: Str$( 1) &” ” & Colour$ 
NEXT | 


END 


Different computers can handle different numbers of colours at the same time. The 
statement 


ASK MAX COLOR var 


finds out how many foreground colours can be handled at the same time. It can be 
misleading, though, because your computer might think it can handle, say, 16 colours, 
but your monitor might be black-and-white! 


Whenever CLEAR 1s executed, the screen 1s flooded with the background colour, which 
is black by default. [The background colour can be set or ascertained by the statements 


SET BACKGROUND COLOR expr$ 
SET BACKGROUND COLOR expr 
ASK BACKGROUND COLOR var$ 
ASK BACKGROUND COLOR var 


In all these statements BACKGROUND COLOR can be shortened to BACK. The following 
program tests for background colours: 


| Test for background colours 
OPEN #2: SCREEN 0, 1, 0, 0.79 


FOR | = O TO 10 
WINDOW #2 
SET BACK | 
ASK BACK Colour$ 
CLEAR 
WINDOW #0 | Default window 
PRINT |; Colour$ 
PAUSE 2 
CLEAR 
NEXT | 


END 
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Fore- and background colours can be set in one statement: 


SET COLOR "fore/back” ! e.g. SET COLOR "blue/white” 


If your computer cannot handle some aspect of colour graphics, True BASIC makes 
some sort of reasonable compromise, if it can, or simply ignores the statement. It will 
never crash because you don’t have a certain colour. 


12.6. IBM PC Modes 


This section applies to the IBM Personal Computer. With luck, most of it will apply to 
most compatibles! 


A number of different modes may be selected: ““MONO”, ‘40’, ‘““BW40”, ‘‘80”’, 
“BW80”, ‘GRAPHICS’, “MEDRES”, “BWGRAPHICS”, “HIRES”, 
‘“EGAMONO”, “EGAHIRES”, “HERCULES”, “TEXT” and “HISTORY”. Of 
these, only “MONO”, “EGAMONO” and “HERCULES” are possible if your PC has 
a monochrome display. All the other modes are capable of showing colour if your PC 


Is equipped with the appropriate colour graphics card. 


The default mode is usually “MONO”, ‘*40”, or ‘*80°’. You can change modes with 


SET MODE expr$ 

where expr$ is one of the eight modes. Changing modes clears the screen. You cannot 
have different windows on the screen in different modes. 

The mode can be ascertained with 

ASK MODE var$ 


You can also switch modes from the command line, e.g. 


Ok. mode 40 

If you set the mode to ‘‘GRAPHICS”’, True BASIC will select the mode most suitable 
for your particular computer configuration. Similarly, ‘““TEXT”’ mode chooses the most 
appropriate text mode for your machine. SET MODE "HISTORY” returns you to the 
history window without having to press Return after using full screen output. 

If you have the Enhanced Graphics Adaptor (EGA), the “EGAHIRES” mode enables 
you to use the SET COLOR MIX statement, which allows you to vary the intensities of 
colours. Full details are in the Version 2.0 Supplement. 


Some of the modes are discussed below. Details of the others are in the Version 2.0 
Supplement. 


Monochrome Mode 


Although ‘““MONO” mode does not support colour, it does allow certain special effects. 
The following program from the True BASIC User’s Guide shows the different 


possibilities for the SET COLOR statement in ‘““MONO”: 
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[Special effects in monochrome mode 


DIM Colour$(4) 

DIM Colour(2) 

MAT READ Colour$ 
MAT READ Colour 
CLEAR 


FOR Type = 1 TO 4 
SET COLOR Colour$( Type ) 
PRINT "Hi, there!” 

NEXT Type 


FOR Type = 1 TO 2 
SET COLOR Colour( Type ) 
PRINT “Hi, there!” 

NEXT Type 


DATA white/black, black/white, blue, white/black/blink 
DATA 15, 9 
END 


The different possibilities are: 


SET COLOR “white/black” Inormal 

SET COLOR “black/white” lreverse video 

SET COLOR "blue” lunderlined 

SET COLOR "white/black/blink’ Iblinking 

SET COLOR 15 Ihigh-intensity 

SET COLOR 9 lunderlined high-intensity 


Text Modes 


These are the ‘40°’, ““BW40”, ‘80°’ and ‘“‘BW80” modes. You can set the foreground 
and background colours of each character printed independently. You can’t change the 
colour of the history window, so you have to open a window to get this effect (CLEAR 


opens the default window #0). The foreground colours available are given in Table 
12-1. 


Table 12-1. Colours in Text Mode 


Number Name Meaning 
0 “black”’ black 
1 “blue blue 
2 “green” oreen 
3 “cyan” cyan 
4 Ted: red 
5 ‘“magenta”’ magenta 
6 “brown” brown (yellow on some monitors) 
7 ‘“white”’ white 
8 prey 
9 bright blue 
10 bright green 
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Number Name Meaning 

11 bright cyan 

12 bright red 

13 bright magenta 

14 “yellow” yellow (brown on some monitors) 
15 bright white 


Of these, only colours 0 to 7 are available as background colours. The SET COLOR and 
SET BACK statements may be used to set the fore- and background colours. SET COLOR 
may also be used to specify both fore- and background, and a blinking foreground, e.g. 


SET COLOR ‘“red/white/blink” ! red blinking on white 


"MEDRES” Mode 
This mode (the ‘‘GRAPHICS” mode of Version 1.0) is set by default when the first 


graphics statement is executed. The screen resolution is 320 x 200 pixels (horizontal x 
vertical) for graphics, and 40 columns for text. 


SET COLOR and SET BACK may be used to set fore- and background colours for both 
text and graphics in this mode. Blinking characters are not available. The available 


foreground colours are given in Table 12-2. 


Table 12-2. Foreground colours in ‘‘GRAPHICS’”’ mode 


Number Name Meaning 
0 ‘‘background”’ background colour 
l “green” green 
2 “red” red 
3 “yellow” or “‘brown”’ yellow (brown on some monitors) 
4 “cyan” cyan 
J “magenta” magenta 
6 ‘“white”’ white 


However, you cannot use all of the foreground colours at the same time. The colours 
are divided in two “‘palettes’’, and you can only use colours from one palette at a time. 
Palette 1 consists of colours 1 to 3, and palette 2 consists of colours 4 to 6. If you have 
already drawn in one palette and switch to the other one, everything you have already 
drawn will switch to the equivalent colour in the new palette. You may use any of the 
colours in Table 12-1 as background colours. In addition you can add 15 to any colour 
to intensify it. 


"HIRES" Mode 


The screen resolution for “HIRES” is 640 x 200 pixels for graphics, and 80 columns for 
text. However, you can have only one foreground colour (as in Table 12-1), and only 
a black background. 
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12.7. True BASIC Graphics Demonstration Programs 


The following programs on the True BASIC diskette demonstrate various graphics 
features: 


Bounce, Flag, Galton, Hanoi, Houses, Knight, Liss, Mondrian, Primeg, Stars and 
Windows. 


12.8. Printing the Graphics Screen 


The graphics screen may be printed by pressing Shift-PrtSc, as long as the MS-DOS 
program GRAPHICS.COM has been run since your computer was last booted up. 


Summary 


* The computer screen may be set in various modes. 


* Different windows may be opened in different parts of the screen. Text and graphics 
output may be sent to the windows. 


A graphics image may be kept and stored in a byte file, to be read and viewed again 
later. 


Pictures are graphics subroutines, and may be transformed. 


EXERCISES 
12.1 iXework Ex. 6.5 with graphics output. 


12.2 ‘the Spiral of Archimedes may be represented in polar co-ordinates by the 
equation 


r= at. 


where ris the distance along a ray from the origin making an angle f radians with 
some axis, and a is some constant. (The shells of a class of animals called 
nummulites grow in this way.) Write a program to draw the spiral for some values 
of a. 


12.3. Another type of spiral is the logarithmic spiral, which describes the growth of 


shells of animals like the periwinkle and the nautilus. Its equation 1s 
r=aq‘, 


where r and ¢ are as in Ex. 12.2 anda > 0, q > 1. Write a program to draw this 
spiral. 
12.4 The arrangement of seeds in a sunflower head (and other flowers, like daisies) 
follows a fixed mathematical pattern. The mth seed is at position 


r= Vn, 


with angular co-ordinate mdn/180 radians, where d is the constant angle of 
divergence (in degrees) between any two successive seeds (i.e. between the nth 
and (n+1)th seeds). If d = 137.51° one gets a perfect sunflower head. Write a 
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program to plot the seeds (either use a point for each seed, or construct a picture 
to represent each seed). A remarkable feature of this is that the angle d must be 
exact to get proper sunflowers. Experiment with some different values, e.g. 
137.45° (spokes, fairly far out), 137.65 (spokes all the way), 137.92° (Catherine 
wheels). For further reading on this very interesting subject, which involves 
Fibonacci numbers, see Dixon (1981) and Ridley (1983). 


A sequence {x,} with very interesting properties is defined by 


Xai = rxXK(1 — Xx). 

Given xg and r, successive members of this sequence may be computed very 
easily, e.g. if x» = 0.2 and r = 1, then x; = 0.16, x2 = 0.1334, and so on. 

The sequence has fascinating behaviour, described as mathematical chaos, for 
values of r between 3 and 4 (independent of x9). Write a program that plots x, 
against & for the first few hundred members of the sequence. Values of r that give 
particularly beautiful graphs are 3.3, 3.5, 3.5668, 3.575, 3.5766, 3.738, 3.8283, 
3.8287, and many more that may be found by patient exploration. For further 
reading see Kadanoff (1983). 

The equation of an ellipse in polar co-ordinates is given by 

r =a(1 — e*)/[1 — ecos(6)], 

where ais the semi-major axis and ¢ is the eccentricity, if one focus is at the origin, 
and the semi-major axis lies on the x-axis. (If a point has polar co-ordinates (7; 0), 
its cartesian co-ordinates are x = r cos(@), y = r sin(@).) 

Halley’s Comet moves in an elliptical orbit about the sun (at one focus) with a 
semi-major axis of 17.9 A.U. (A.U. stands for Astronomical Unit, which is the 
mean distance of the Earth from the Sun: 149.6 million km.) The eccentricity of 
the orbit 1s 0.967276. Write a program which draws the orbit of Halley’s Comet 
and the Earth (assumed circular). 

A rather beautiful picture can be drawn by plotting the points (x,; y,) generated 
by the following difference equations 

Xe-1 = Yell + sin(0.7x,)] — 1.2([xel)?, 

Ver = 0.21 — Xx, 

Starting with x9 = yo = 0. Write a program to draw the picture (plot individual 
points; do not join them). 
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SIMULATION 


One of the most powerful applications of modern computers is in the field of simulation. 
A simulation is a computer experiment which mirrors some aspect of the real world that 
appears to be based on random processes, or is too complicated to understand properly. 
(Whether events can be really random 1s actually a theological question.) Some 
examples are radio-active decay, bacteria division and traffic flow. The essence of a 
simulation program 1s that the programmer is unable to predict beforehand exactly what 
the outcome of the program will be, which is true to the event being simulated. For 
example, when you spin a coin, you do not know exactly what the result will be. 


Random events are easily simulated in True BASIC with the built-in function Rnd, 
which generates a uniformly distributed pseudo-random number in the range 


Q <= Rnd < 1 


(a computer cannot generate truly random numbers, but they can be practically 
unpredictable), e.g. 


|! Some random numbers 


FOR | = 1 TO 10 
PRINT USING "% .######": Rnd 
NEXT | 


END 


Ok. run 

0.548508 
0.078269 
0.687876 
0.335258 
0.951922 
0.823726 
0.540729 
0.084583 
0.391326 
0.582497 


13.1. Spinning a Fair Coin 


When a fair (unbiased) coin is spun, the probability of getting heads or tails is 0.5 (50%). 
Since the value of Rnd is equally likely to be anywhere in the interval [0; 1), we can call 
it “heads” if Rnd is less than 0.5, and “‘tails” otherwise. The following program simulates 
an experiment in which a fair coin is spun 50 times: 
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[Spinning a fair coin 
FOR | = 1 TO 50 
IF Rnd < 0.5 THEN PRINT ”H”; ELSE PRINT °T"; 


NEXT | 

END 

The results appear to be completely random. The acid test is that there is no way 
someone could detect, by examining them, whether those results came from the 
simulation or from a real experiment. However, if we re-run the program, we get 
exactly the same sequence of “‘H”’ and “T”’, which is not true to life, as every gambler 
knows! This is because the random number sequence always starts in the same place 
(this makes it easier to debug simulation programs). To seed Rnd at a different starting 
point each time the program runs, insert the statement RANDOMIZE at the beginning of 
the program. Each run of the program will then produce different output, as the 
following two samples show: 

TTHTHHHHHHTHHHHTTHHTTHHTTTHHTTHHTHTHT TT TTT THTHHHTT 
TTHTTTHTHTHTHHT THTHHHTHHT THTARAT TT THTARATHT TAHHRATHHTHH 


Obviously, if you run this program, you are most unlikely to get exactly the same results! 


Rolling a Fair Die 

When a fair die (plural “‘dice’’) is rolled, the number uppermost is equally likely to be 
any integer from 1 to 6. This program simulates 20 rolls of a die. The output from two 
successive runs is shown: 

"Rolling a fair die 

RANDOMIZE 


FOR |= 1 TO 20 
PRINT Int( 6 * Rnd + 1 ); 


OO Tomer tact, OG 8G <2 3°. 65 6 

Since Rnd is a decimal number in the [0; 1), 6 * Rnd will be in the range [0; 6), and 
(6 * Rnd + 1) will be in the range [1; 7), i.e. between 1.000000 and 6.999999. Taking the 
integer part of this will therefore give an integer in the required range. Once again, 
RANDOMIZE ensures that the two sequences are different. 
We can do some statistics on our simulated experiment, just as if it were a real one. For 
example, we could estimate the mean of the number on the uppermost face of the die 
when it is rolled 10 times, say, and also the probability of getting a six. The output from 
two successive runs 1s shown: 


NEXT | 

END 

eesOy me Ge eo UBL A oP 2S ot 2) 6 6" SS 6s 6 a 
Gg ah bee Se tee 


[Chances of getting a six 
RANDOMIZE 

LET FormatS ="<########4#4#4###### HH" 
LET Mean, Kumf = 0 
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LET Throws = 10 


FOR | = 1 TO Throws 

LET N = Int( 6 * Rnd + 1 ) 

LET Mean = Mean + N 

IF N = 6 THEN LET Num6 = Num6 + 1 
NEXT | 


PRINT USING Format$: "Mean:”, Mean / Throws 
PRINT USING Format$: "Chances of a 6:”, Num6 / Throws 


END 

Mean: 4.50 
Chances of a 6: 0.30 
Mean: 2.70 


Chances of a 6: 0.10 


Re-run the program increasing the value of Throws each time, and observe what 
happens to the mean and the chances of getting a six. 


13.3. Bacteria Division 


When a fair coin is spun, or a fair die is rolled, the different events (getting ‘heads’, or 
a Six) happen with equal likelihood. Suppose, however, that a certain type of bacteria 
divides (into two) in a given time interval with a probability of 0.75 (75%), and that if 
it does noi divide, it dies. Since Rnd is equally likely to be anywhere between 0 and hs 
the chances of it being less than 0.75 are 75%. We can therefore simulate this situation 
as follows: 


RANDOMIZE 

LET R = Rnd 

IF R <0.75 THEN PRINT"! am now we” 

IF R >= 0.75 THEN PRINT”! am no more” 


Can you see that the following would be wrong: 


IF Rnd < 0.75 THEN PRINT "Il am now we” 
IF Rnd >= 0.75 THEN PRINT "Il am no more” 


The principle is that Rnd should be called only once for each event being simulated. The 
single event here is whether or not the bacterium divides. 


13.4. A Random Walk 


Suppose a drunken sailor has to negotiate a jetty toward his ship. The jetty 1s 50 steps 
long and 20 wide. A mate places him in the middle of the jetty at the quay-end, and 
points him toward the ship. Suppose at every step he has a 60% chance of lurching 
toward the ship, but a 20% chance of lurching to the left or right (he manages always 
to be facing the ship). If he reaches the ship end of the jetty, he is hauled aboard by 
waiting mates. The problem is to simulate his progress along the Jetty, and to estimate 
his chances of getting to the ship without falling into the sea. To do this correctly, we 
must simulate one walk along the jetty, find out whether or not he reaches the ship, and 
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then repeat this simulation 100 times, say. The proportion of simulations that end with 
the sailor safely in the ship will be an estimate of his chances of making it to the ship. 
For a given walk we assume that if he has not either reached the ship or fallen into the 
sea after, say, 10 000 steps, he dies of thirst on the jetty. 


To represent the jetty, we set up co-ordinates with the x-axis running along the middle 
of the jetty with the origin at the quay end. x and y are measured in steps. The sailor 
starts his walk at the origin each time. The structure plan, program and output from two 
successive runs are as follows: 


1. Initialize variables 
2. Repeat 100 simulated walks down the jetty 
2.1 Start at the quay-end of the jetty 
2.2 While still on the jetty and still alive repeat: 
2.2.1 Get a random number K for the next step 
2.2.2 If R < 0.6 then 
2.2.2.1 Move forward (to the ship) 
Otherwise if R < Q.8 then 
2.2.2.2 Move port 
Otherwise 
2.2.2.3 Move starboard 
2.3 If he got to the ship then 
2.3.1 Count that walk as a success 
3. Compute and print estimated probability of reaching the ship. 


[Random walk 

‘Safe: Number of times he makes it 
Sims: Number of simulations 

iSteps: Number of steps on a given walk 


RANDOMIZE 
LET Safe, Steps = 0 
LET Sims = 100 


FOR Walks = 1 TO Sims [Start each new walk .. 
LET Steps, X, Y = 0 | .. at the origin 


‘Continue walking until he arrives, falls off, or dies of thirst 
DO WHILE X <50 AND Abs(Y ) < = 10 AND Steps < 10000 


LET Steps = Steps + 1 [That's another step 
Let R = Rnd [Random number for that step 
IF R <0.6 THEN lWhere did he go? 
LET X = X + 1 (Maybe forward .. 
ELSE IF R < 0.8 THEN 
LET Y=Y+t1 (Maybe to port .. 
ELSE 
LET Y = Y-1 IMaybe to starboard 
END IF 
LOOP 


IF X > 50 THEN LET Safe = Safe + 1  !He actually made it! 
NEXT Walks 


SIMULATION 201 





LET Prob = 100 * Safe / Sims 

PRINT USING "Probability of reaching ship: #4##.#”: Prob; 
PRINT "%" 

END 


Probability of reaching ship: 93.0% 
Probability. of reaching ship: 89.0% 


13.5. Dealing a Bridge Hand 


Simulation is the basis of most computer games. The next program, which is similar to 
one by Kemeny and Kurtz (1967), simulates a deal of 13 playing cards from a pack of 
52. Note that apart from RANDOMIZE, the only executable statements in the main 
program are four subroutine calls. All the subroutines are external. 


Deck reads the names of the four suits as strings into elements 0 to 3 of the array SuitS, 
and the 13 face values from ‘‘Two” to “‘Ace”’ into elements 0 to 12 of the array Value$. 


A set of 13 cards is dealt by the routine Deal. To deal a card, a random integer in the 
range 0 to 51 is generated, i.e. the 52 cards are represented uniquely by the numbers 0 
to 51. The main problem is that a given card may only be dealt once. To ensure this, a 
local array List is set up. All its elements are initially zero (meaning no cards have been 
dealt yet). The function Ranint generates a random integer and assigns it to I. List(I) 1s 
checked. If itis still zero, that card has not yet been dealt, sol is put into the next element 
of Hand, and List(I) is set to —1, indicating that card | has now been dealt. If List(!) already 
has the value —1 when! comes up, it means that card | has already been dealt, so another 
random integer is generated. This process is repeated 13 times, until the array Hand 
contains 13 unique numbers in the range 0 to 51. This part of the problem may be 
structure planned as follows: 


Repeat 13 times: 

Ll. Get a random number 

Convert it to an integer | in the range 0 to 51 
While List(l) #0 repeat: 

3.1 Get another random integer | 

Set List(l) to —] 

\. Assign | to the next element of Hand. 


= 


BubbleDown is a generalized subroutine which sorts the first N elements of its array 
parameter X into descending order. Note that it uses an external suboutine Swop to do 
the swopping. It is used to sort the elements of Hand into order, rather like a player sorts 
his cards after the deal. 


Show prints the sorted hand. Each element of Hand is subjected to integer division by 
13 (i.e. the decimal part is truncated). The quotient Suit will be in the range Oto3 (won t 
it?) and gives the suit. The remainder Value, computed in the next line of Show, will be 
in the range 0 to 12, and gives the face value. E.g. the number 49 on division by 15 gives 
a quotient of 3 (‘“‘Spades’’) and a remainder of 10 (‘““Queen’’), as shown in the first line 
of output after the program, which is as follows: 
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IDeals 13 well-shuffled cards 


DIM Hand(13) 
DIM SuitS( 0:3 ) 

DIM Value$( 0:12 ) 

RANDOMIZE 

CALL Deck( Suit$, Value$ ) 

CALL Deal( Hand ) 

CALL BubbleDown( Hand, 13 ) 
CALL Show( Hand, Suit$, Value ) 
END 


SUB BubbleDown( X(), N ) 
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The 13 cards 
The suit names 
The face values 


[Set up the card deck 
IDeal the hand 
Sort the hand 
Print the hand 


[Bubble sorts the first N elements of X into descending order 


LET K = 0 


DO 
LET Swops = 0 
LET K = K + 1 
FOR J = 1 TO N-K 
IF X(J) < X(J+1) THEN 
CALL Swop( X(J), X(J+1) ) 


LET Swops = Swops + 1 
END IF 
NEXT J 
LOOP UNTIL Swops = 0 
END SUB 


SUB Deal( Hand() ) 
[Deals 13 cards from a shuffled pack 


DEF Ranint = Int( 52 * Rnd ) 
DIM List( 0:51 ) 


FOR Card = 1 TO 13 


LET | = Ranint 

DO WHILE List(l) <> 0 
LET | = Ranint 

LOOP 


LET List(l) = —1 
LET Hand( Card ) = | 
NEXT Card 
END SUB 
SUB Deck( Suit$(), Value$() ) 
[Sets up the card deck 
MAT READ Suit$ 
MAT READ Value$ 


‘Count the swops per pass 
(Count the passes 


(Count the tests 


[Must be sorted now 


lin the range 0-51 
The check list 


[Get 13 of them 


[Already dealt, so .. 
| .. try again 


Tick it off 


(Read the suit names 
'Read the face values 


DATA Clubs, Diamonds, Hearts, Spades 
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DATA Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten 
DATA Jack, Queen, King, Ace 
END SUB 


SUB Show( Hand(), Suit$(), Value$() ) 
IPrints the hand 
CLEAR 
FOR Card = 1 TO 13 
LET Suit = Int( Hand( Card ) / 13 ) 
LET Value = Hand( Card )— 13 * Suit 
PRINT USING "< #### of < #######": Value$( Value ), Suits$( Suit ); 
PRINT USING "##########": Hand( Card ), Suit, Value 
NEXT Card 
END SUB 


SUB Swop( A, B ) 
ISwops A and B 


LET Temp = A 


LET A=B 
LET B = Temp 
END SUB 


A different hand will be dealt every time the program is run. Here is a sample hand (the 
headings for the last three columns have been inserted into the text for clarity): 


Hand Suit Value 
Queen of Spades 49 3 10 
Three of Spades 40 3 1 
Ace of riearts 38 2 12 
Ten of Hearts 34 2 8 
Five of rearts 29 2 3 
Three of Hearts 27 2 1 
King of Diamonds 24 1 11 
Four of Diamonds 15 | 2 
Two of Diamonds 13 1 0 
King of Clubs 11 0 11 
Queen of Clubs 10 0 10 
Ten of Clubs 8 0 8 
Four of Clubs 2 0 2 


You may think that the method of “shuffling” the cards with the DO loop in routine Deal 
is inefficient, because as more cards are dealt, so the number of calls to Rnd goes up. The 
routine Deal may be changed as follows. It now shuffles all 52 cards in the pack, by 
starting with a sorted pack, and swopping them at random, rather like a Bubble Sort. 
(I am indebted to one of my 1984 first-year students, $.D.H. Elliott, for this 
suggestion. ) 
SUB Deal( Hand() ) 

IDeals 13 cards from a shuffled pack 
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DEF Ranint = Int( 52 * Rnd ) + 1 In the range 1—52 now 
FOR Card = 1 TO 52 


LET Hand( Card ) = Card — 1 [Pack sorted at first 


NEXT Card 
FOR Card = 1 TO 52 IShuffle whole pack now 
LET | = Ranint 


CALL Swop( Hand( Card ), Hand( |!) ) ‘!Swop cards at random 
NEXT Card 


END SUB 

Note that RanIntis now in the range 1 to 52 since it represents the position of acard rather 
than the card itself. The only other change required is that Hand must be dimensioned 
with 52 elements. With a few more amendments (like copying the appropriate elements 
of Hand into another array), all four hands can be printed. You may like to compare the 
computing time for the two methods using the TIME function. 


13.6. Traffic Flow 


A major use of simulation in large cities is to model the traffic flow, so as to be able to 
try out different traffic light patterns on the computer before inflicting them on the real 
traffic (this has been done on a large scale in Leeds in the U.K., for example). In this 
example we look at a very small part of this problem: how to simulate the flow of a single 
line of traffic through one set of traffic lights. We make the following assumptions (you 
can make your own if you like): 

1. Traffic travels straight, without turning. 

2. The probability of a car arriving at the lights in any one second Is independent of what 
happened during the previous second. This is called a Poisson process. This 
probability (call it p) may be estimated by watching cars at the intersection and 
monitoring their arrival pattern. In this simulation we take p = 0.3 (this 1s entirely 
arbitrary). 

. When the lights are green, assume the cars move through at a steady rate of, say, 
eight every ten seconds. 

4. In the simulation, we will take the basic time interval to be ten seconds, so we want 
a display showing the length of the queue of traffic (if any) at the lights every ten 


seconds. 
5. We will set the lights red or green for variable multiples of ten seconds. 


This program illustrates the use of modules. The variables Cars, Green, Light$, Red and 
Sim are known throughout the whole program. GreenTimer and RedTimer are known 
only in (all) the subroutines of the module. | is known only in the subroutine PrintQueue. 


'Traffic flow simulation 
Number of cars in queue 


! Cars 
! Green : Period lights are green 
! Light$ ; Colour of lights 

! Red ; Period lights are red 

! Sim : Simulation counter 


| T : Period of simulation 
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DECLARE PUBLIC Cars, Green, Light$, Red, Sim 


RANDOMIZE 

CLEAR 

READ Red, Green, T 

LET Cars = 0 |! No cars to start with 

LET Light$§ ="R” ! Lights red to start with 

LET P = 0.3 ! Prob a car arrives in a second 
FOR Sim = 1 TOT ' Run for T 10-sec intervals 


FOR Sec = 1 TO 10 
IF Rnd <P THEN LET Cars = Cars + 1 ! Another car arrives 
NEXT Sec 


IF LightS =”"G" THEN CALL Go ELSE CALL Stop 
NEXT Sim 


DATA 4, 2, 48 
END 


MODULE Traffic 
PUBLIC Cars, Green, Light$, Red, Sim 
SHARE GreenTimer, RedTimer 


LET GreenTimer = 0 | Times how long lights have been green 
LET RedTimer = 0 | Times how long lights have been red 
SUB Go 


Lights are green here 


LET GreenTimer = GreenTimer + 1 
LET Cars = Cars —8 

IF Cars <0 THEN LET Cars = 0 
CALL PrintQueue 

IF GreenTimer = Green THEN 


Advance timer 

Let 8 cars through 

May have been less than 8! 
Print the traffic queue 


+ —— ‘a I 


LET LightS =”R” | Change lights .. 
LET GreenTimer = 0 ! .. and reset timer 
END IF 
END SUB 


SUB PrintQueue 
Print the line of cars here 
PRINT USING "###": Sim: 
PRINT Tab( 5 ); Light$; Tab( 10 ); 
FOR | = 1 TO Cars 

PRINT ’*": 

NEXT | 
PRINT 

END SUB 

SUB Stop 
Lights are red here 


LET RedTimer = RedTimer + 1 |! Advance timer 
CALL PrintQueue | Print traffic queue 
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IF RedTimer = Red THEN 
LET Light$ =”"G" 
LET RedTimer = 0 
END IF 
END SUB 
END MODULE 
1 R * 
2R ** 
3 R kkk 
4R kkhkkkkkek 
5 G * 
6G 
7R- ** 
8 R 1 kk kk 
9 R KKK KKK KK KK 
10 R khkkkkkkk kkk 
11 G kkkkkkkk 
12 G kkk 
13 R KKK 
14 R kkk kk 
15 R Kk tk kk 
16 R kkkkk kk kkk 
17 G KkKKKK 
18 G 
1i9R  * 
20 R kkk 
21 R KAKKKKKK IK 
oo R kkk 
23 G KkkK kk KKK 
24 G kkk 
25 R kkKKK 
26 R kkhkkkkke 
27 R KakkKkKKKKKK 
28 R kkkkkkkkk kkk 
29 G kk kkKkKK 
30 G kkk 
31 R aka 
32 R kkkkk 
33 R GO Ik 
34 R kkk kkk RIK 
35 G kkk kk 
36 G 
37 R kkk kK 
38 R kkkk kkk kkk 
39 R KKKKKKKKKKKKKK 
40 R AAAKKKKKKKKKKKKKE 
41 G kikkk kkk kk 
42 G kkkkke 
43 R KakKKKKKKKKK 
44 R kkhkkkkkkk kkk 


KEEKEEKKKKKKKKKKKKKKK 


! Change lights .. 


.. and reset timer 
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468 R KKEKKKKKKKKKKEKKKKKKKKKKKKE 
47 G kkkkkkkkkkkkkkkk kkk kk kk 
48 G kk kkk tk kk kK 


From this particular run it seems that a traffic jam 1s building up, although more and 
longer runs are needed to see if this is really so. In that case, one can experiment with 
different periods for red and green lights in order to get an acceptable traffic pattern 
before setting the real lights to that cycle. This is the great value of this sort of 
simulation. Of course, we can get closer to reality by considering two way traffic, and 
allowing cars to turn in both directions, and occasionally to break down, but tk’ 
program gives the basic ideas. 


13.7. Queues 


In this section we look at how to simulate a simple first-in-first-out (FIFO) queue. The. 
are now two random processes involved: the arrival of users, and the service of users, 
both of which we assume to be Poisson distributed. These processes may be represented 
by two random variables: the inter-arrival time (JA 7) between users joining the end of 
the queue, and the service time (ST) for the user at the head of the queue. Let us suppose 
that these random variables are distributed as follows (e.g. based on a survey in a Post 
Office): 


IAT (secs) Probability Probability 
(frequency) (cumulative) 
10 0.10 0.10 
15 0.25 0.35 
20 0.30 0.65 
25 0.25 0.90 
30 0.10 1.00 
ST (secs) Probability Probability 
(frequency) (cumulative) 
S 0.08 0.08 
10 0.14 0.22 
IS 0.18 0.40 
20 0.24 0.64 
25 0.22 0.86 
30 0.14 1.00 


We also need to define the following terms: 


A: clock time of arrival; 
E: clock time of entry into service; 


L: clock time of leaving service (L = E + ST); 


I: user’s time in system (JT = L — A); 
W: user’s wait time (W = E — A). 


The purpose of the simulation is to estimate a user’s mean time in the system and mean 
wait time, to see if these are acceptable. If they are not, attempts can be made to 
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improve the service. The structure plan is as follows: 


1. Repeat for each user: 
1.1 Generate JAT according to Poisson distribution 


1.2 Update arrival time 
1.3 Determine when user enters service as follows: 


If he arrives after previous user has left then 

1.3.1 He enters service immediately 

Otherwise 

1.3.2 He enters service when previous user leaves 
1.4. Generate ST according to Poisson distribution 


1.5. Determine when he leaves service 
1.6. Add wait time and time in service to running total 
2. Compute mean wait time and mean time in system for all users. 


It is an interesting problem to determine the length of the queue the moment after each 
user joins it. To do this we need to record all the leave times in an array, and use a term 
H which identifies the user at the head of the queue. The following section should be 


added to the structure plan: 


1.7 While arrival time = H’s leave time repeat: 


1.7.1 Increase H by 1 
1.8 Determine length of queue between H and current user. 


he program below simulates the service of 50 users, and prints out the variables 
defined above for each user. A sample run is shown as well: 


! Simulation of a FIFO queue 


! Arr : Clock time of arrival 

| Ent ; Clock time of entry into service 

! Head : User at head of queue 

1 IAT : Inter-arrival time 

! Leave ; Clock time of leaving service (array) 

! Leng : Length of queue 

! MeanTlS : Mean user time in system 

|! MeanWait : Mean user wait time 

! Num : Number of users (assumed less than 100) 
1 R : Random number 

! ST : Service time 

! TIS : Time in system 

! User ‘ User number 

| Wait : User wait time 

DIM Leave( 0:100 ) 

RANDOMIZE 

LET Arr, Leave(O), MeanTis, MeanWait = 0 

LET Num = 50 

CLEAR 

SET COLOR 9 (High intensity underlined 


PRINT USING "######>": “USER”, “IAT”, “ARR”, "ENT", "ST", ... 
.. “LEAVE”, "WAIT", "TIS", “LEN” 


SET COLOR “white” 
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PRINT 
FOR User = 1 TO Num 
LET R = Rnd ! Generate Inter-arrival time 
IF R <0.1 THEN 
LET IAT = 10 
ELSE IF R <0.35 THEN 
LET IAT = 15 
ELSE IF R <0.65 THEN 
LET IAT = 20 
ELSE IF R <0.90 THEN 
LET IAT = 25 
ELSE 
LET IAT = 30 
END IF 
LET Arr = Arr + IAT 
IF Arr >= Leave( User—1 ) THEN ! Find when he enters service 
LET Ent = Arr 
ELSE 
LET Ent = Leave( User —1 ) 
END IF 
LET R = Rnd | Now generate service time independently 
IF R <0.08 THEN 
LET ST = 5 
ELSE IF R <0.22 THEN 
LET ST = 10 
ELSE IF R <0.40 THEN 
LET ST = 15 
ELSE IF R <0.64 THEN 
LET ST = 20 
ELSE IF R <0.86 THEN 
Lei ST =. 25 
ELSE 
LET ST = 30 
END IF 


LET Leave( User ) = Ent + ST 
LET Wait = Ent — Arr 

LET TIS = Leave( User ) — Arr 
LET MeanTiS = MeanTiS + TIS 
LET MeanWait = MeanWait + Wait 


DO WHILE Arr >= Leave( Head ) | Determine length of queue 
LET Head = Head + 1 
LOOP 


LET Leng = User — Head + 1 
PRINT USING "#######": User, IAT, Arr, Ent, ST, Leave( User ), Wait, TIS, Leng 
NEXT User 
PRINT 
LET MeanTIS = MeanTlS / Num 
LET MeanWait = MeanWait / Num 
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PRINT USING "Mean wait time: ###.# secs”: MeanWait 
PRINT USING "Mean time in system: ###.## secs”: MeanTIS 


END 
Sample output: 
USER IAT ARR ENT ST LEAVE WAIT TIS) LEN 
1 10 10 10 15 25 0 15 1 
2 20 30 30 10 40 0 10 1 
3 20 00 00 29 75 0 29 1 
4 25 75 75 25 100 0 25 1 
5 20 95 100 20 120 5 25 2 
6 29 120 120 25 145 0 20 1 
7 10 130 145 15 160 15 30 2 
8 25 155 160 25 185 5 30 2 
9 20 175 185 20 205 10 30 2 
10 30 205 205 30 235 0 30 1 
11 20 225 235 25 260 10 35 2 
12 20 245 260 25 285 15 40 2 
13 15 260 285 25 310 25 50 2 
14 10 270 310 20 330 40 60 3 
15 20 290 330 30 360 40 70 3 
16 20 310 360 20 380 50 70 3 
17 20 330 380 20 400 90 70 3 
18 20 350 400 20 420 50 70 4 
19 20 370 420 15 435 50 65 4 
20 20 390 435 15 450 45 60 4 
21 15 405 450 30 480 45 75 4 
22 20 425 480 20 900 05 79 4 
23 20 445 500 20 520 55 75 4 
24 20 465 520 25 545 55 80 4 
25 20 485 945 15 060 60 79 4 
26 20 905 960 15 575 55 70 4 
27 15 920 575 15 590 55 70 4 
28 10 930 290 25 615 60 85 5 
2g 15 945 615 o 620 70 75 5 
30 30 975 620 25 645 45 70 4 
31 20 995 645 20 665 50 70 4 
32 30 625 665 20 685 40 60 3 
33 30 655 685 15 700 30 45 3 
34 10 665 700 25 725 35 60 3 
35 15 680 725 20 745 45 65 4 
36 25 705 745 15 760 40 25 3 
37 20 725 760 20 780 35 95 3 
38 20 745 780 25 805 35 60 3 
39 20 765 805 10 815 40 50 3 
40 15 780 815 15 830 35 50 3 
41 20 800 830 25 855 30 95 4 
42 25 825 855 15 870 30 45 3 
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21] 
43 30 855 870 25 895 15 40 2 
44 15 870 895 20 915 25 45 2 
45 20 890 915 3 920 25 30 3 
46 15 905 920 30 950 15 45 3 
47 10 915 950 25 975 35 60 3 
48 25 940 975 30 1005 35 65 3 
49 25 965 1005 20 1025 40 60 3 
50 10 975 1025 25 1050 50 75 3 
Mean wait time: 33.0 secs 
Mean time insystem: 53.50 secs 


One way of improving service could be to guarantee service in 25 seconds or under. This 
could be implemented, for example, by having a probability of 0.36 for a service time 
of 25, and removing the service time of 30. This has a noticeable effect on the means. 


Note that this simulation is carried out from the point of view of a user in the system, 
whereas the traffic flow simulation in section 13.6 is done from the point of view of an 
external observer (e.g. a traffic officer). 


Summary 


* A simulation is a computer program which mimics a real-life situation apparently 
based on chance. 


* ‘The pseudo-random number generator Rnd returns a uniformly distributed random 
number in the range |0; 1), and is the basis of the simulations discussed in this chapter. 


* Rnd will generate a different random number sequence every time if the statement 
RANDOMIZE is used. 


* Every independent event being simulated requires a separate random number. 


EXERCISES 
13.1 Ina game of Bingo the numbers 1 to 99 are drawn at random from a bag. Write 
a program to simulate the draw of the numbers (each number can be drawn only 
once), printing the numbers as they are drawn ten to a line. 


Rnd can be used to estimate x as follows (such a method is called a Monte Carlo 
method). Write a program which generates random points in a square of length 
2, say, and which counts what proportion of these points falls inside the circle of 
unit radius that fits exactly into the square. This proportion will be the ratio of the 
area of the circle to that of the square. Hence estimate z. (This 1s not a very 
efficient method, as you will see from the number of points required to get even 
a rough approximation. ) 

13.3. The aim of this exercise is to simulate bacteria growth. Suppose that a certain type 
of bacteria divides or dies according to the following assumptions: 


1) during a fixed time interval, called a generation, a single bacterium divides 
into two identical replicas with probability p; 


2) if it does not divide during that interval, it dies (i.e. ceases to be, “shuffles off 
this mortal coil’’); 


I 
— 
tr 
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3) the offspring (called daughters) will divide or die during the next generation, 
independently of the past history (there may well be no offspring, in which 
case the colony becomes extinct). 

Start with a single individual and write a program which simulates a number of 
generations. Take p = 0.75. The number of generations which you can simulate 
will depend on your computer system. Carry out a large number (e.g. 100) of such 
simulations. The probability of ultimate extinction, p(£), may be estimated as the 
proportion of simulations that end in extinction. You can also estimate the mean 
size of the nth generation from a large number of simulations (the theoretical 
mean is (2p)"). 
Statistical theory asserts that the expected value of the extinction probability p(£) 
is whichever is the smaller of 1, and (1—p)/p. So for p = 0.75, p(E) is expected 
to be 1/3. But for p = 0.5, p(E£) is expected to be 1, which means that extinction 
is certain (a rather unexpected result). You can use your program to test this 
theory by running it for different values of p, and estimating p(£) in each case. 
Dribblefire Jets Inc. (Kass, 1977) make two types of aeroplane, the two-engined 
DFII, and the four-engined DFIV. The engines are terrible and fail with 
probability 0.5 on a standard flight (the engines fail independently of each other), 
The manufacturers claim that the planes can fly if at least half of their engines are 
working, i.e. the DFII will crash only if both its engines fail, while the DFIV will 
crash if all four, or if any three engines fail. 
You have been commissioned by the Civil Aviation Board to ascertain which of 
the two models is less likely to crash. Since parachutes are expensive, the 
cheapest (and safest!) way to do this is to simulate a large number of flights of 
each model. For example, two calls of Rnd could represent one standard DFII 
flight: 1f both random numbers are less that 0.5, that flight crashes, otherwise it 
doesn’t. Write a program which simulates a large number of flights of both 
models, and estimates the probability of a crash in each case. If you can run 
enough simulations, you may get a surprising result. (Incidentally, the probability 
of n engines failing on a given flight is given by the binomial distribution, but you 
do not need to use this fact in the simulation. ) 

Two players, A and B, play a game called ‘‘Eights’’. They take it in turns to 

choose a number 1, 2 or 3, which may not be the same as the last number chosen 

(so if A starts with 2, B may only choose 1 or 3 at the next move). A starts, and 

may choose any of the three numbers for the first move. After each move, the 

number chosen is added to acommon running total. If the total reaches 8 exactly, 
the player whose turn it was wins the game. If a player causes the total to go over 

8, the other player wins. For example, suppose A starts with | (total 1), B chooses 

2 (total 3), A chooses 1 (total 4) and B chooses 2 (total 6). A would like to play 

2 now, to win, but he can’t because B cunningly played it on the last move, so A 

chooses | (total 7). This is even smarter, because B is forced to play 2 or 3, making 

the total go over 8 and thereby losing. 

Write a program to simulate each player’s chances of winning, if they always play 

at random. 
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MATRICES AND THEIR 
APPLICATIONS 


In this chapter we look at how to write programs to solve problems involving matrices, 
with examples from such areas as linear algebra, networks, population dynamics, 
surveying and Markov processes. 


The programming introduced here follows on from Chapter Nine, where arrays with 
only one subscript were discussed (such arrays are also called lists or vectors). In this 
chapter we deal with arrays having more than one subscript, or multi-dimensional 
arrays. Although up to ten subscripts may be used, we will discuss only two-dimensional 
arrays here, since these occur most often. An array with two subscripts can represent 
a table of numbers, since one subscript (usually the first) can label the rows in the table, 
while the second subscript labels the columns. This is also the convention adopted for 
matrices. Tables and matrices look exactly the same, but since matrices are used in 
mathematical applications, we will deal with them separately. 


14.1. Tables: a Concrete Example 


A ready-mix concrete company has three factories (S1, S2 and $3) which must supply 
three building sites (D1, D2 and D3). The costs of transporting a load of concrete from 
any factory to any site are given by the following cost table: 


D1 D2 D3 


S1 errs 12 10 
S2 ie ery 18 35 
S3 ¥ 10 24 


The factories can supply 4, 12 and 8 loads per day respectively, and the sites require 10, 
9 and 5 loads per day respectively. The real problem is to find the cheapest way to satisfy 
the demands at the sites, but we are not considering that here. 


Suppose the factory manager proposes the following transportation scheme (each entry 


represents the number of loads of concrete to be transported along that particular 
route): 


D1 D2 D3 





This sort of scheme is called a solution to the transportation problem. The cost table 
(and the solution) can then be represented by tables C and X, say, where c;; is the entry 


214 CHAPTER 14 





in row i and column j of the cost table, with a similar convention for X. 


To compute the cost of the above solution, each entry in the solution table must be 
multiplied by the corresponding entry in the cost table (this operation is not to be 
confused with matrix multiplication, which is discussed in the next section). The 
following program will do what is required: 

[Transportation costs 


DIM C( 3,3 ) 
DIM X( 3,3 ) 
MAT READ CG, X 
LET TotCost = 0 
FOR |= 11708 

FOR J = 1 TO 3 

LET TotCost = TotCost + C( IJ ) * X( IJ ) 

NEXT J 
NEXT | 
PRINT USING "Total cost: $$$$.4#”: TotCost 
DATA 3, 12, 10, 17, 18, 35, 7, 10, 24 ! Costs 
DATA 4, 0, 0, 6, 6, O, 0, 3, 5 | Solution 
END 
The size of each table (number of rows and columns) must be declared in a DIM 
statement at the beginning of the program. 


After the MAT READ has been executed, the arrays in memory will look as follows: 


C X 


—, 


— = = 


AAA AKAKKXKX 
MWODADRDCOA 


1 

1,2 
1,3 
oy 
2,2 
2,3 
3,1 
3,2 
3,3 





Note that MAT READ reads the arrays in odometer order, 1.e. so that the last subscript 
moves most rapidly. 


14.2. Matrices 


A matrix is a two-dimensional array (i.e. a table) which may be used in a wide variety 
of representations. For example, a distance array representing the lengths of direct 
connections in a network is a matrix. We will deal mainly with square matrices in this 
chapter (1.e. matrices having the same number of rows as columns), although in 
principle a matrix can have any number of rows or columns. A matrix with only one 
column is also called a vector. 


MATRICES AND THEIR APPLICATIONS 215 


A matrix is usually denoted by a bold capital letter, e.g. A, and each entry, or element, 
of the matrix is denoted by the small letter of the same name followed by two subscripts, 
the first indicating the row of the element, and the second indicating the column. So a 
general element of the matrix A 1s called a;,, meaning it may be found in row 7 and 
column j. If A has three rows and columns (3 X 3 for short) it will look like this in 
general: 


Q11 12 413 


If, for example, 





6 2 QO 
A=/]-1 4 7 
Yet be 
then az; = —1, a3 = 7, a3, = 5, and so on. 


Matrix Multiplication 


Various mathematical operations are defined on matrices. Probably the most important 
one is matrix multiplication. It is used widely in such areas as network theory, solution 
of linear systems of equations, transformation of co-ordinate systems, and population 
modelling. The rules for multiplying matrices look a little weird at first, but will be 
justified by the applications that follow. 


When two matrices A and B are multiplied together, their product is a third matrix C. 
The operation is written as 


C = AB, 


and the general element c;; of C is formed by taking the scalar product of the ith row of 
A with the jth column of B. It follows that A and B can only be successfully multiplied 
(in that order) if the number of columns in A is the same as the number of rows in B. 


Definition 


If Ais a(n X m) matrix and B is a(m xX p) matrix, their product C will be a (m x p) matrix 
such that the general element c, of C is given by 


Wrl 
Ci = 2 AiKD Kj : 
k=1 


Note that in general AB is not equal to BA (matrix multiplication is not commutative). 
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Examples 


3 4)*[o -a}-[5 18] 
3 4]*[3] = [13] 


The following program demonstrates the use of a subroutine to multiply two matrices 
using the definition explicitly. If your area of programming is in the mathematical 
sciences or engineering, it is part of your education to know how this is done, even 
though we will see a much easier way of doing it in the next section: 


[Test of matrix multiplication the hard way 


DIM A( 2,2 ) 

DIM B( 2,2 ) 

DIM C( 2,2 ) 

READ M, N, P 

MAT READ A, B 

CALL MatMult( A, B, C, M, N, P ) 

MAT PRINT USING "###": C 

DATA 2, 2, 2 

DATA 1, 2, 3, 4 

DATA 5, 6, 0, —1 

END 

SUB MatMult( X(,), Y(,), Z(,), M, N, P ) 
(Multiplies X (N x M ) by Y (M x P) the hard way 
[Stores product in Z (NxM) 


FOR | = 1 ie N 
FOR J=1TOP 
LET Z(I,J) = 0 
FOR K = ‘ TO M 
LET 2 IJ) = Zid) + X( 1K) * ¥( KJ ) 
NEXT K 
NEXT J 
NEXT | 


END SUB 


Ok. run 
9 4 
15 14 
Note that the MAT PRINT statement prints a matrix row by row. Note also that when a 
two-dimensional array is listed as a subroutine parameter its dimension is indicated in 
the following way: X(,). 


DO > 


14.3. Handling Matrices with True BASIC 


This section is mainly to do with the special MAT statements for handling matrices 
directly. 
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Explicit Redimensioning 


The statements MAT INPUT, MAT LINE INPUT and MAT READ may be used to redimen- 
sion an array explicitly, as discussed in section 9.2, e.g. 


MAT READ A( 0:2, 2:4 ) 
MAT INPUT X(?) 


The MAT READ redimensions A so that its first subscript runs from 0 to 2, and its second 
from 2 to 4. A must previously have been declared with two dimensions, i.e. the number 
of dimensions may not be changed by redimensioning. The redimensioning 1s valid until 
the end of the program, or the next redimensioning. 


MAT INPUT with a question mark redimensions X to have as many elements as you type 
in at the keyboard. (The lower bound remains the same: the upper bound is changed.) 
This holds only for one-dimensional arrays, and is not allowed with MAT LINE INPUT. 


An array may also be redimensioned with the MAT REDIM statement, e.g. 
DIM A( 5 ) 


MAT REDIM A( 20 ) 


This is useful if during execution it is discovered that there is too little (or too much) 
room ior the array. Added components are set to zero or null strings, as appropriate. 
MAT REDIM should be used with caution. Lower bounds should not be changed, and if 
multi-dimensional arrays are redimensioned, only the first dimension should be 
redimensioned, since the old components will appear in their standard (lexicographic) 
order in the new array. For example, if 


2 


ale 
Pe Ive on 





the statement MAT REDIM A( 3,2 ) results in 
] 2 
3 4 
Q Q 


However, MAT REDIM A( 2,3 ) on the Original array would result in 
a 2 ass 
4 0 QO 

which is probably not what was intended. 


The MAT PRINT Statements 


MAT PRINT will print an array by rows (in odometer order). A blank line is printed after 
each array (if more than one is listed in the MAT PRINT), and also between each 
two-dimensional section of an array with more than two dimensions. If the array is 
followed by a comma, elements are printed in different print zones. A semi-colon has 
the expected effect. If a MAT PRINT statement ends without a comma or semi-colon, the 
last array is printed in comma format. The general syntax 1s 
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MAT PRINT arrayl, array2, ... 
MAT PRINT arrayl; array2; ... 


For example: 


DIM A( 2,2 ) 
DIM B( 2,2 ) 
MAT A = 1 

MAT B = 2 

MAT PRINT A, B; 
PRINT "The end’ 


END 

Ok. run 
1 1 
1 1 
2 2 
2 2 

The end 


MAT PRINT may also be used in combination with PRINT USING and printing to a file (the 
arrays are printed row by row): 


MAT PRINT USING format$: arrayl, array2, ... 

MAT PRINT #expr, USING formats: arrayl, array2, ... 

MAT PRINT #expr: arrayl; array2, ... 

Only commas may separate arrays in MAT PRINT USING, and the last array in the list 
must not be followed by a comma (or semi-colon). 


Array Parameters 


When an array is listed as a parameter in the definition of a subroutine (or function, 
although this is inadvisable) it must be followed by parentheses enclosing one fewer 
commas than it has dimensions. When listed as an argument, the parentheses may be 
omitted: 

DIM A(10), B( 5,6 ), C( 2,3,4 ) 


CALL Dummy( A, B, C ) 
SUB Dummy( A(), Bi), C(,,) ) 


END 


lhe MAT PLOT Statements 


These apply only to two-dimensional arrays. The x co-ordinates of the points to be 
plotted may be stored in the first column of an array, and the y co-ordinates in the 
second column. The general forms of the statements are: 

MAT PLOT POINTS: array 


MAT PLOT LINES: array 
MAT PLOT AREA: array 
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The following program reads in the co-ordinates of seven points (in the order x;, y;, x2, 
y2, -.. ) and shades in the figure defined by them: 


DIM X( 7, 2 ) 

SET WINDOW —10, 10, —10, 10 

MAT READ X 

MAT PLOT AREA: X 

DATA 0, 0, —1, 1; 0,2, 4,2) 1s Tye ee 

END 

The next program, from the True BASIC Reference Manual, produces a rather 
interesting Lissajous figure: 


lDraws a Lissajous figure, and fills it in 


DIM Points( 201,2 ) 
SET MODE "hires” 
SET WINDOW —1, 1, —1, 1 


FOR | = 0 TO 2 * Pi STEP Pi / 100 ! Loop through figure 
LET G=0 + | counting which element 
LET Points( C,1 ) sin( 3 * I ) ! and calculating values 
LET Points( C,2 ) = Cos( 5 * I ) 

NEXT | 


MAT PLOT AREA: Points | Draw and fill in 
END 


Matrix Assignments 

An entire matrix can be assigned to another matrix using the keyword MAT instead of 
LET, e.g. 

MAT A = X 


where both A and X are arrays with the same number of dimensions. This statement may 
cause A to be implicitly redimensioned, as discussed below. You can also assign one 
number or string to every element of an array: 


MAT A = 1 | All ones 
MAT X$ = "plonk” | All "plonk’s 
MAT A =var 


! yar copied into every element 
MAT A = (expr) ' expr evaluated and copied 


Note that if anything other than a constant or simple variable is assigned, it must be 
enclosed in parentheses. 


Matrix Arithmetic 
The following are examples of the operations on matrices that are allowed (only one 
operation per statement is allowed): 


MAT A=B+C 
MAT A B-C 
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MAT A=B*#*C 
MAT A=A* A ! not allowed in most Street BASICs 


For addition and subtraction, B and C must have the same shape and size, although their 
lower and upper bounds are not important. The third operation is matrix multiplication, 
as defined above. The rather messy program to multiply two matrices can therefore be 
rewritten much more simply as: 

[Test of matrix multiplication the True BASIC way 


DIM A( 1,1 ) 

DIM B( 1,1 ) 

DIM C( 1,1 ) 

READ M, N, P 

MAT READ A( 1:N, 1:M ), B( 1:M, 1:P )  ! Explicit redimensioning 

MAT C=A*B 

MAT PRINT USING "###”: C 

DATA 2, 2, 2 

DATA 1, 2, 3, 4 | A 

DATA 5, 6, 0, —1 |B 

END 

Even the form of this program in section 14.2 1s a little simpler than the equivalent form 
of the program in FORTRAN or Pascal, say, because of the ways arrays are handled in 
those two languages. The form shown here is unimaginably simpler. 


Each element of an array may be multiplied by a scalar, e.g. 


MAT A =n*X 
A and X are arrays, and 11s ascalar, representing any numeric constant, simple variable, 
or expression. If it is an expression, it must be enclosed in parentheses: 


MAT X = (Exp(-R* T)) * X 


mplicit Redimensioning 


MAT statements which assign new values to an array may implicitly redimension the 
array to conform to the size of the array being assigned to it. E.g. in 


MATA=B*C 

the ower bounds of A will be kept unchanged, but if necessary, the upper bounds of A 
will be reset (upward or downward) to reflect the correct number of elements in the 
product of B and C. This can cause surprising results. If you want to play it safe, 
dimension all your arrays initially so that redimensioning won’t be necessary, or at least 
make sure all the lower bounds are the same. Redimensioning is nonetheless a very 
useful facility in subroutines, as we will see below. 


Built-in Array Values 


The following array values are built into True BASIC. They may be used in matrix 
assignments, they can redimension arrays, they can be multiplied be scalars, but they 


MATRICES AND THEIR APPLICATIONS 221 


may not be used in matrix arithmetic. If bounds are not given, the target array keeps its 
own size, but if you give a lower bound, it must match the target array’s lower bound. 


Name Meaning 

Con Every element set to one 

Idn Identity matrix 

Nul$ Every element set to the null string 
Zer Every element set to zero 


If redimensioning is required, the bounds may be given after the name in parentheses. 
E.g. 


MAT A = Zer( 2,4 ) 


will assign a (2 X 4) array of zeros to the target array. 


Built-in Matrix Functions 


Since these functions return numeric values (with the exception of Inv and Trn), they 
may be used in any numeric expression. Inv and Trn may appear on the righthand side 
of a MAT assignment statement (but may not be used in matrix arithmetic; see section 
14.7 for an example). 


Det returns the determinant of the most recently inverted matrix. If no matrix has been 
inverted, it returns zero. 


Det( A ) returns the determinant of the square matrix A (zero if A is singular). 


Dot( *, Y ) returns the dot (scalar) product of the two vectors X and Y, which must have 
the same number of elements. 


Inv( A ) returns the matrix inverse of A, unless it is (nearly) singular, in which case ‘True 
BASIC gives an error message. Matrix inversion is extremely prone to rounding error. 
If the determinant of A is (nearly) zero, the inverse obtained in this way is probably 


meaningless. 

Lbound( A ) returns the lower bound of the 1-dimensional array A. 
Lbound( A, N ) returns the lower bound of the Nth dimension of A. 
Size( A ) returns the current number of elements in array A. 

Size( A, N ) returns the current number of elements in the Nth dimension of A. 
Ubound( A ) returns the upper bound of the 1-dimensional array A. 
Ubound( A, N ) returns the upper bound of the Nth dimension of A. 


14.4. Networks 


In our first application of matrix multiplication we consider a problem which at first 
glance seems to have nothing to do with it. 
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A Spy Ring 


Suppose five spies in an espionage ring have the code names Alex, Boris, Cyril, Denisov 
and Eric (whom we can label A, B, C, D and E respectively). The hallmark of a good 
spy network Is that each agent is not able to contact all the others. The arrangement for 
this particular group 1s: 


Alex can contact only Cyril; 

Boris can contact only Alex or Eric; 
Denisov can contact only Cyril; 

Eric can contact only Cyril or Denisov. 


(Cyril can’t contact anyone in the ring: he takes information out of the ring to the 
spymaster. Similarly, Boris brings information in from the spymaster: no-one In the ring 
can contact him.) The need for good spies to know a bit of matrix theory becomes 
apparent when we spot that the possible paths of communication between the spies can 
be represented by a (5 xX 5) matrix, with the rows and columns representing the 
transmitting and receiving agents respectively, thus: 


MOOD D> 





We will call this matrix A. It clearly represents a directed network with the spies at the 
nodes, and with arcs all of length 1, where a network is a collection of points, called 
nodes, joined by lines, called arcs. In a directed network, movement is only possible 
along the arcs in one direction (see Fig. 14-1). 


Figure 14-1. The network represented by the matrix A 
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The matrix A may also be thought of as an adjacency matrix, witha lin rowiand column 
j if there is an arc from node / to node J, or a 0 in that position if there is no arc between 
those two nodes. The diagonal elements of A (1.e. @11, @22, etc.) are all zero because 


good spies do not talk to themselves (since they might then talk in their sleep and give 
themselves away). 


Now let’s multiply this matrix A by itself and see what happens. We note before we start 
on this awesome task that each 1 in A represents a single path of length one arc in the 
network (path here means a direct link between two agents). Well, if we do the 
multiplication, we get 


0010 0 O01 0 0 
tL oo Qu b Oe Genta 
000 0 0 x 0 00 0 0 
O01 0 0 OQ 1 0 0 
OR ty at @ 0 Oo t-49 
O00 0 O 
GUA 2 4B 
=!|0 0 0 0 O| , which is called A?. 
O 0 0 0 0 
OO 200° 4) 


Row 2 and column 3 have been highlighted in the two versions of A above to help 
interpret A~ (which is defined as the matrix A multiplied by itself). The element 2 in A* 
(row 2, column 3) results when row 2 of Ais multiplied term by term with column 3, and 
the products added. This gives us the scalar product 


1x1t+0x07+0x0t+0xX14+1x1=2. 


The first non-zero term arises because there is a path from node 2 to node 1, which we 
will denote by (2—1), followed by a path (1-3), giving a composite path (2—1—3) of 
length 2 (i.e. from Boris to Cyril via Alex). The second non-zero term arises because 
there is a path (2—5) followed by a path (5—3), giving a second composite path (2—5—3) 
of length 2 (i.e. from Boris to Cyril again, but via Eric this time). It is clear therefore 
that the entries in A> represent the number of paths of length 2 between the various 
nodes in the network (on the strict understanding that all arcs are of length 1). There 
are therefore only four paths of length 2: two from Boris to Cyril, as we have seen, one 


from Boris to Denisov, and one from Eric to Cyril (a path of length 2 in the spy context 
means One intermediary). 


Having got so much interesting information from A“, the obvious thing to do now is to 
multiply the matrix A* by A again, to form the third power of A. If you do this correctly, 
you will get for your trouble the rather dull matrix 


0 0 0 0 0 
Os a LD 
A>= |0 000 0 
O00 0 0 
00000 
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The single 1 in A® tells us that there is only one path of length three in the network (i.e. 
with two intermediaries) and that it is from Boris to Cyril. Drawing the network, or 
alternatively examining the appropriate row and column in A“ and A that give rise to this 
single entry in A°, reveals that the actual route is Boris-Eric-Denisov-Cyril. 

If we now compute A‘, we will find that every element is zero (such a matrix is called 
the null matrix), signifying that there are no paths of length 4 in the network, which can 
be verified by inspection. All higher powers of A will also obviously be null, since if 
there are no paths of length 4, there can hardly be any that are longer! 

In general, then, the element in row 7 and column j of the Ath power of an adjacency 
matrix is equal to the number of paths consisting of & arcs linking nodes / and j. 


Coming back to our spy network, since the elements of A are the number of paths of 
length 1, and the elements of A* are the number of paths of length 2, etc., then clearly 
the sum of all these powers of A will tell us how many paths of any length there are 
altogether between the various nodes. We can therefore define a “‘reachability’’ matrix 


R for this (5 X 5) network: 
R=A+A*+A°+A*. 

R is also a (5 X 5) matrix, and its elements give the total number of paths of 
communication between the agents. Doing the calculation gives us 


10 010 0 


Coo Gc = 
OO 2S: S 
NK © WwW 
- oO 
Coo ce 


so we can read off from the reachability matrix R the fact that there are, for example, 
three different paths between Boris and Cyril, but only two between Eric and Cyril (the 
actual lengths of these paths will have been calculated in finding the powers of A). The 
name ‘reachability’ is used because the non-zero elements of R indicate who may 
contact whom, directly or indirectly, or for a general distance network, which nodes can 


be reached from each node. 


The Reachability Matrix 


In general, the reachability matrix R of a (nm X n) network may be defined as the sum 
of the first (7—1) powers of its associated adjacency matrix A. You may be wondering 
why we can stop at the (1—1)th power of A. The elements of A‘*~!) will be the number 
of paths that have (n—1) arcs, i.e. that connect n nodes (since each arc connects two 
nodes). Since there are no further nodes that can be reached, it is not necessary to raise 
A to the nth power. 

However, A” does reveal an interesting property of networks, which you may have 
already guessed, and which we will look at in the next section. 

The subroutine Reachable below computes the reachability matrix R for any network 
given the adjacency matrix A, i.e. it computes 
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R=A+A7+ A+... FAQ) 


where A is (mn X n). It uses the array B to store the intermediate powers of the array A, 
adding them to R each time. 


[Reachability 

DIM A( 1, 1 ) | Adjacency matrix 

DIM R( 1, 1 ) | Reachability matrix 
READ N 

MAT READ A( 1:N, 1:N ) ! Explicit redimensioning 


CALL Reachable( A, R ) 
MAT PRINT USING "###": R 


SUB Reachable( A(,), R(,) ) 
[Computes the reachability matrix R given adjacency matrix A 


DIM B( 1, 1 ) ! Local array for powers of A 
MAT B=A 
MAT R=A 
LET N = Size( A, 1 ) ! A must be square 
FOR |= 1TON-2 
MAT B = * A ! Next power of A 
MAT R=R+B8B ! Add it to R 
NEXT | 
END SUB 
Cycles 


If any elements of A”, where A is the adjacency matrix of a network with n nodes, are 
non-zero, what does this imply? Such a non-zero element means a path of length n, 1.e. 
a path linking (+1) nodes. Since the network has only n nodes, it must therefore have 
a cycle (a path which passes through a particular set of nodes indefinitely). So we have 


a neat test for cycling in a network: if A” is null, there are no cycles; if it is not null, there 


are cycles. 


Indeed, since we need to compute all the intermediate powers of A in order to get A”, 
we can spot cycles that do not involve all the nodes before we have got A”. If any smaller 
power of A has at least one non-zero entry on its main diagonal, the network will have 
at least one cycle, since a path that starts and ends at the same node must be cyclic. So 


we can extend the test for cycling to the following: 
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IF any of the matrices A”, A>, ..., A“) has a non-zero entry anywhere on a main 


diagonal, 

OR A” has a non-zero entry anywhere, 

THEN the network has at least one cycle, defined by the positions of the non-zero 
entries, 


ELSE it has no cycles. 


Postscript 


If A has no rows that are full of zeros (i.e. each node has an exit), or no columns full of 
zeros (i.e. each node can be reached), then there must be a cycle (if not, there may still 


be one, but we can’t be sure). 


14.5. Leslie Matrices 


Another very interesting and useful application of matrices is in population dynamics, 
but we will need to do some preliminary work before we can see where the matrices 


come In. 


Rabbits Again 


The rabbit population model of section 8.1 can be made a lot more realistic if we allow 
some rabbits to die from time to time. The approach we are going to take requires that 
we divide the rabbit population up into a number of age classes, where the members of 
each age class are one time unit older than the members of the previous class, the time 
unit being whatever is convenient for the population being studied (days, months, etc.). 


If X; 1s the size of the ith age class, we define a survival factor P; as the proportion of 
the 7th class that survive to the ({+1)th age class (i.e. the proportion that ‘“‘graduate’’) 
and F; as the mean fertility of the th class, 1.e. the mean number of newborn individuals 
expected to be produced during one time interval by each member of the ith class at the 
beginning of the interval (only females count in biological modelling, since there are 
always enough males to go round!). 


Suppose for our modified rabbit model we have three age classes, with X,, X> and _X; 
members respectively. We will call them young, middle-aged and old-aged for 
convenience. (We could easily have had more age classes: see the example at the end 
of this section.) We will take our time unit as one month, so_X, are the number that were 
born during the current month, and which will be considered as youngsters at the end 
of the month. X2 are the number of middle-aged rabbits at the end of the month, and 
A3 the number of oldsters. Suppose the youngsters cannot reproduce, so that F; = 0. 
The fertility rate for middle-aged rabbits is 9, so F, = 9, while that of oldsters is 12, so 
f3 = 12. The probability of survival from youth to middle-age is one third, so P,; = 1/3, 
while no less than half the middle-aged rabbits live to become oldsters, so P> = 0.5. With 
this information we can quite easily compute the changing population structure month 
by month, as long as we have the population breakdown to start with. First we calculate 
how many babies are born in the current month. Let’s call this number New for the 


moment, and not x, yet: 
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LET New = F2 * X2 + F3* X3 (1) 


At the end of the current month, some lucky middle-aged rabbits get promoted to 
oldsters, so the new value for X3 will be given by 


LET X3 = P2 * X2 


(2) 
Similarly, some youngsters will get to experience the delights of middle-age: 
LET X2 = P1 * X1 (3) 
Finally, now that we have used the current value of X;, we can update it: 
LET X1 = New (4) 


Note that we took care to compute the new arrivals in equ. (1) from the values of Xz and 
X;3 before they were updated in eqs (2) and (3). This effectively implies that the gestation 
period is one month. Also it would be incorrect to use X, on the lefthand side of equ. 
(1) because then we would be using the wrong value of X, in equ. (3). 


We are assuming for the sake of illustration that all old-aged rabbits die at the end of 
the month. This can be corrected in two ways. The members of the third age class could 
be defined as those rabbits which are three months and older at the end of the current 
month, in which case we would need to introduce a P3, being the probability that an 
oldster does not die that month. The example of the American robin at the end of this 
section uses this device. Alternatively, one can simply have more age classes, although 
this will require more biological data. When this type of model was tried out on 
elephants in the Kruger National Park, it was found that 60 age classes were needed, 
with a time unit of one year, since very few elephants live beyond the age of 60 years. 


If we have some values of X,, X2 and_X3 to start with, we can write a program that uses 
the above scheme to update the age classes month by month, for as long as we like, and 
sO project the rabbit population into the future. In the program below, we start the 
model with one old rabbit, and no others, so X; = X2 = 0, and X3 = 1. The output after 
the program gives the population structure and the total population over a period of 24 
months. 

‘Advanced rabbit population model based on 3 age classes 


READ X1, X2, X3 Initial populations 


READ F2, F3 Fertility rates 
READ P1, P2 [Survival probabilities 
LET Total = X1 + X2 + X3 

LET T = 0 


LET Format® =" ###,###4, ###.#" 

LET FmtS ="########F##HHHK HD” 

CLEAR 

PRINT USING Fmt$: "MONTH", “YOUNG”, "MIDDLE", “OLD”, "TOTAL" 
PRINT 

PRINT USING Format$: T, X1, X2, X3, Total 


FOR T = 1 to 24 
LET New = F2 * X2 + F838 * X83 
LET X38 = P2 * X2 
LET X2 P1 * X1 


228 


LET X1 = New 


LET Total = X1 + X2 + X3 
PRINT USING Format$: T, X1, X2, X3, Total 
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NEXT T 
DATA 0, 0, 1, 9, 12, 0.333333, 0.5 
END 
Output: 
MONTH YOUNG MIDDLE OLD TOTAL 
0 0 Ae 1.0 1.0 
1.0 12.0 0 0 12.0 
2.0 0 4.0 0 4.0 
3.0 36.0 QO 2.0 38.0 
4.0 24.0 12.0 0 36.0 
5.0 108.0 8.0 6.0 122.0 
6.0 144.0 36.0 4.0 184.0 
7.0 372.0 48.0 18.0 438.0 
8.0 648.0 124.0 24.0 796.0 
9.0 1,404.0 216.0 62.0 1,682.0 
10.0 2,688.0 468.0 108.0 3,264.0 
11.0 5,508.0 896.0 234.0 6,638.0 
12.0 10,871.9 1,836.0 448.0 13,155.9 
13.0 21,899.9 3,624.0 918.0 26,441.9 
14.0 43,631.7 7,300.0 1,812.0 92,/43.7 
15.0 87,443.5 14,543.9 3,650.0 105,637.3 
16.0 174,694.8 29,147.8 7,272.0 211,114.68 
17.0 349,593.5 58,231.6 14,573.9 422,398.9 
18.0 698,970.7 116,531.1 29,115.8 844,617.5 
19.0 1,398,168.8 232,990.0 98,265.5 1,689, 424.3 
20.0 2,/96,096.3 466,055.8 116,495.0 3,378,647.1 
21.0 9,092,442. 1 932,031.2 233,027.9 6,757,501.1 
22.0 11,184,615.2 1,864,145.5 466,015.6 13,514,776.3 
23.0 22,369,496.4 3,728,201.3 932,072./ 2/7,029,770.5 
24.0 44,738,685.0 7,456,491 .4 1,864, 100.7 94,059,277.0 


Fractional rabbits should be kept, and not rounded (and certainly not truncated). They 
occur because the fertility rates and survival probabilities are averages. 


If you look carefully at the output you may spot that after some months the total 
population doubles every month. But what you probably won’t spot is that the numbers 
in the three age classes tend to a limiting ratio of 24:4:1. This can be demonstrated very 
clearly if you run the model with an initial population structure having this limiting ratio. 
We will come back to this intriguing result at the end of this section. 


Well, what has all this got to do with matrices? Everything, as we shall see in a moment. 
If we denote the current month by ¢, and next month by (t+1), we can refer to this 
month’s youngsters as Xj(t), and to next month’s as _X;(t+1), and similarly for the other 
two age classes. The scheme of equations (1) to (4) for updating the population can then 
be written as three equations: 


X1(t+1) = F5X2(t) + F3X3(t) 
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X2(t+1) — P,X,(t) 
X3(t+1) — P2X2(t) 


The obvious thing to do now is to define a population vector X(t), with three 
components, X,(t), X2(t), and X3(t), representing the three age classes of the rabbit 
population in month ¢t. The above three equations specify how to get from X(t) to 
X(t+1), and using this vector, with a matrix for the coefficients on the righthand side, 
we can easily rewrite the equations as 


X| 0 Fo Ff; X| 

| X> = P<. 0 0 x X? | 

X3 O° °Poo 7 U X3 
tt+1 t 


where the subscript at the bottom of the vectors indicates the month. We can write this 
even more concisely as the matrix equation 


X(t+1) = L X(0), (5) 


where L is the matrix 


0 Bo 42 
1/3 Q 0 
FP are O 


In this particular case. L is called a Leslie Matrix. A population model can always 


written in the form of equ. (5) if the concepts of age classes, fertility, and survival 
factors, as outlined above, are used. 


Now that we have established a matrix representation for our model, we can easily write 
a program using matrix multiplication and repeated application of equ. (5): 

X(t+2) = L X(t+1), 

A(t+3) = L X(t+72), etc. 

However, we only need one one-dimensional array X in the program, because repeated 
multiplication by the square array L will continually update it: 

MATX = L * X 

The following program will produce the same output as the previous one, but it is more 
general, and can be easily extended to handle as many age classes as you like: 


Leslie matrix rabbit model 


DIM L( 3, 3 ) | Leslie matrix 
DIM X(3) | Population vector 
DECLARE DEF PopTot 

MAT READ L 

MAT READ X 

LET T = 0 ! Time in months 


LET FormatS =" ###, ###, ###.#' 
LET FmtS ="#######FF#KKFFERO" 
CLEAR 
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PRINT USING Fmt$: "MONTH", "YOUNG", "MIDDLE”, “OLD”, "TOTAL” 
PRINT 
PRINT USING Format$: T, X(1), X(2), X(3), PopTot( X ) 
FOR T = 1 TO 24 
MAT X = L * X 
PRINT USING Format$: T, X(1), X(2), X(3), PopTot( X ) 
NEXT T 


DATA 0, 9, 12, .3833333, 0, 0, O, .5, O 
DATA 0, OQ, 1 
END 
DEF PopTot( X() ) 

[Sums the components of any vector X 

FOR | = 1 TO Size( X ) 

LET Sum = Sum + X(I) 

NEXT | 

LET PopTot = Sum 
END DEF 
MAT PRINT is not used because it automatically prints a blank line after the array. 
Although, in general, arrays should not be passed to functions, small ones such as this 
don’t affect the computing time very much. As as exercise, generalize the program to 
handle a model with N age classes, where the value of N is read in as data. Test it on the 
rabbit model with NV = 3. (You will have to split the PRINT USING statements up with 


a FOR-NEXT loop.) 


We have already observed that after sufficient time has elapsed, the total population 
doubles every month. This factor is called the growth factor, and is a property of the 
particular Leslie matrix being used (for those who know about such things, it’s the 
dominant eigenvalue of the matrix). The growth factor is 2 in this example, but if the 
values in the Leslie matrix are changed, the long-term growth factor changes too (try it 
and see). 


We have also noted that the values of the three age classes reach a limiting ratio of 
24:4:1. This limiting ratio is called the stable age distribution of the population, and 
again it is a property of the Leslie matrix (in fact, it is the eigenvector belonging to the 
dominant eigenvalue of the matrix). Different population matrices lead to different 
stable age distributions. 

The interesting point about all this is that any given Leslie matrix always eventually gets 
a population into the same stable age distribution, which increases eventually by the 
same growth factor each month, no matter what the initial population breakdown is. For 
example, if you run the above model with any other initial population, it will always get 
into a stable age distribution of 24:4:1 with a growth factor of 2 (try it and see). 


The American Robin 


A Leslie matrix may be constructed for any population, with any number of age classes, 
and always has the same characteristic structure. For example, the American robin has 
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been modelled in this way. Seven age classes, X;, X>, ..., X7 are defined, with a time 
unit of one year, the seventh class representing all the robins that are more than six years 
old. The general structure of the Leslie matrix is: 


O° 9-95. hs" Few fist het la | 
FiveG 0 0 0 Oye ot 

Or “Bs. »0 0 0 Ups 40 

0 Oh Ps. 8G Q Oe th 

0 0 OG P34” 3G QO OQ 

0 0 0 O'- Pew 6Q 0 


v 0 0 0 ie ORE ty 


F; and P; have the same meaning as before, and P7 is the proportion of robins aged seven 
years and older that survive each year. A study of these birds published in 1945, cited 
by Spain (1982), gives the following values for the Leslie matrix: 


| 0.0 0.4 Zi 1.6 1.4 1.1 1.0 


0.355 0 0 0 0 0 0 
0 0.461 0 0 0 Q 0 
0 0 0.433 0 0 Q 0 
0 0 0 0.364 0 0 () 
0 0 0 0 0.3 0 0 
0 0 Q 0 0 Q.2 Q.1 


Sample values of the seven age classes X, to X7 are 1 400, 497, 229, 99, 36, 10 and 6 
respectively (see Ex. 14.2). 


14.6. Markov Chains 


Often a process that we wish to model may be represented by a number of possibic 
discrete (i.e. discontinuous) states that describe the outcome of the process. For 
example, if we are spinning a coin, then the outcome is adequately represented by the 
two states “‘heads”’ and “‘tails’”’ (and nothing in between). If the process is random, as 
It is with spinning coins, there is a certain probability of being in any of the states at a 
given moment, and also a probability of changing from one state to another. If the 
probability of moving from one state to another depends on the present state, and not 
on any previous state, the process is called a Markov chain. The progress of the drunk 
sailor in Chapter 13 is an example of a Markov chain. A variation on this example is 
given below. Markov chains are used widely in such diverse fields as biology and 


business decision making, to name just two areas. We will give two simple examples to 
illustrate the concept. 


Weather "Preadiction” 
The first example (Kemeny and Kurtz, 1967) is taken from the Land of Oz, where the 


weather on a given day may be in one of three states: rainy, fair or snowy. We can 
represent these states by a three-component vector X(t), where X,(t), X2(t), and X3 are 
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the probabilities of the weather being rainy, fair or snowy on day ¢t. Obviously, the 
components of X(t) must sum to 1, since the weather can be in no other state. The 
weather is ‘‘controlled’’ by the Wizard, who operates on a fairly random basis, like most 
wizards. His rule appears to be that if it is rainy today, it will be the same tomorrow half 
of the time, and equally likely to be fair or snowy the rest of the time. If it is fair today, 
the weather tomorrow is equally likely to be rainy or snowy (two fair days in a row are 
unheard of in Oz). If it is snowy today, it will be the same tomorrow half of the time, 
and equally likely to be rainy or fair the rest of the time. 


In the last three sentences, we have stated the transition probabilities of moving from 
any one state today to any other state tomorrow. These probabilities are best expressed 
in the form of a transition probability matrix, P, where P is given by 


TODAY 
Rainy Fair Snowy 


Rainy 
LOMORROW Fair 
Snowy 





Note that the columns of P add up to 1. What is the weather likely to do tomorrow? The 
chances of it being rainy tomorrow are 0.5 if it rained or was fair today, and 0.25 if it 
snowed today (top row of P). Thus, if time ris today, the probability of it being rainy 
tomorrow, represented by X,(f+1), is given by 


X1(t+1) = 0.5.X4(t) + 0.5.X2(t) + 0.25.X3(f) . (1) 
Similarly, the chances of it being fair or snowy tomorrow are given by eqs (2) and (3): 
X2(t+1) = 0.25.X;(t) + 0.25.X3(ft) , (2) 
X3(t+1) = 0.25.X;(t) + 0.5X2(t) + 0.5.X3(2) . (3) 


We can write eqs (1) to (3) in matrix form, as we did with the rabbit model: 


X) OS OS O25) pk 
X2 = 0.25 0.0 0.25] | X2 
X3 +] 0.25 0.5 0.5 X3 


or more concisely, 

X(t+1) =P X(1). (4) 
By applying equ. (4) repeatedly, we can find the long range weather prospects, 
provided we know the state of the weather on a given day. Suppose it is rainy today. 
Then X;(0) = 1, since it is certain, while X2(0) = X3(0) = 0. Using these starting values, 
we can generate the probability states of the weather for as long as we like. 


The computing is almost identical to that required in the previous section for generating 
the rabbit population over a number of months. In fact, the same program can be used, 
with only minor formatting changes. Starting with a rainy day at time t= 0, the program 
gives the following output for the next week: 
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DAY RAINY FAIR SNOWY 


0 1.0000 0.0000 0.0000 
1 0.5000 0.2500 0.2500 
2 0.4375 0.1875 0.3750 
3 0.4063 0.2031 0.3906 
4 0.4023 0.1992 0.3984 
o 0.4004 0.2002 0.3994 
6 0.4001 0.2000 0.3999 
7 0.4000 0.2000 0.4000 


We see from the output that the probabilities converge to the limiting probabilities 0.4, 
0.2, 0.4. In fact, they converge to the same limit for a given transition matrix P, whatever 
the initial state happens to be (try this out with different initial states). The limiting 
probabilities in this example mean that in the long run it rains 40% of the time, snowy 
40% of the time, and is fair for the rest of the time (one day in five). 





A Random Waik 


The second example (Kemeny and Kurtz, 1967) is a variation on the random wa 
problem. A street has six intersections. A drunk man wanders down the street. His 
home is at intersection 1, and his favourite bar at intersection 6. At each intersection 
other than his home or the bar he moves in the direction of the bar with probability 2/3, 
and in the direction of his home with probability 1/3. He never wanders down a side 
street. If he reaches his home or the bar, he disappears into them, never to re-appear 
(when he disappears we say in Markov jargon that he has been absorbed). 


We would like to know: what are the chances of him ending up at home or in the bar, 
if he starts at a given corner (other than home or the bar, obviously)? He can clearly be 
in One Of six states, with respect to his random walk, which can be labelled by the 
intersection number, where state 1 means “‘Home” and state 6 means “Bar”. We can 
express this Markov process by the following transition matrix: 


PRESENT STATE (CORNER) 
Home 2 3 4 5 Bar 


Home 


NEXTSTATE 3 
(CORNER) 4 


Bar 





The entries for Home-Home and Bar-Bar are both 1 because he stays put there with 
certainty. 


We can compute the probability states in the same way as we did for the weather in the 
land of Oz, forming the new state vector from the old one each time: 


X(t+1) = P X(t) 
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If we suppose the man starts at intersection 2, the initial probabilities will be (0; 1; 0; 0; 
0; 0). Using this starting vector, we generate the following states in the future: 


TIME HOME 2 3 4 4 BAR 
0 0.0000 1.0000 0.0000 0.0000 0.0000 0.0000 
1 0.3333 0.0000 0.6667 0.0000 0.0000 0.0000 
2 0.3333 0.2222 0.0000 0.4444 0.0000 0.0000 
3 0.4074 0.0000 0.2963 0.0000 0.2963 0.0000 
4 0.4074 0.0988 0.0000 0.2963 0.0000 0.1975 
a 0.4403 0.0000 0.1646 0.0000 0.1975 0.1975 
6 0.4403 0.0549 0.0000 0.1756 0.0000 0.3292 
7 0.4586 0.0000 0.0951 0.0000 0.1171 0.3292 
8 0.4586 0.0317 0.0000 0.1024 0.0000 0.4073 
9 0.4692 0.0000 0.0553 0.0000 0.0683 0.4073 
10 0.4692 0.0184 0.0000 0.0596 0.0000 0.4528 
17 0.4753 0.0000 0.0322 0.0000 0.0397 0.4528 
12 0.4753 0.0107 0.0000 0.0347 0.0000 0.4793 
13 0.4789 0.0000 0.0187 0.0000 0.0231 0.4793 
14 0.4789 0.0062 0.0000 0.0202 0.0000 0.4947 
15 0.4810 0.0000 0.0109 0.0000 0.0135 0.4947 
30 0.4838 0.0001 0.0000 0.0003 0.0000 0.5158 
40 0.4839 0.0000 0.0000 0.0000 0.0000 0.5161 
50 0.4839 0.0000 0.0000 0.0000 0.0000 0.5161 


By running the program for long enough, we soon find the limiting probabilities: he 
ends up at home about 48% of the time, and at the bar about 52% of the time. Perhaps 
this is a little surprising; from the transition probabilities, we might have expected him 
to get to the bar rather more easily. It just goes to show that you should never trust your 
intuition when it comes to statistics! 


Note that the Markov chain approach is not a simulation: one gets the theoretical 
probabilities each time (this can all be done mathematically, without a computer). But 
it is interesting to confirm the limiting probabilities by simulating the drunk’s progress, 
using a random number generator (see Ex. 14.4 below). 


14.7. Solution of Linear Equations 


A problem that often arises in scientific applications is the solution of a system of linear 
equations, e.g. 

2x —4y + 3z=-9 

3x —- z= 4 


x+5yt z= 11. 
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If we define the matrix A as 


oh G4 3 
A = 3 | 
2 5 Lae 


and the vectors X and B as 


x —9 
xX = y | and B= 4 
z 11], 


we can write the above three equations in matrix form as 


2 —4 3 x == Q) | 
3 iP cd y = | 4 


? 


2 5 1 Zz 11 


or even more concisely as the single matrix equation 
AX=B. 

The solution may then be found by inverting A, 
X= AB 


where A~* is the matrix inverse of A. A program to implement this solution directly is 
given below, followed by a discussion of another method: Gauss reduction. 


The Direct Method 


The subroutine SOLVE solves a system of equations using matrix arithmetic directly. 
Note that since only one matrix operation is allowed in a statement, the inverse of A has 
to be computed first, and stored temporarily in C. 


| SOLVES LINEAR EQUATIONS OF ANY SIZE 


DIM A( 1,1 ) Coefficient matrix 
DIM B( 1 ) (Righthand side 
DIM X( 1 ) [Solution vector 
READ N 

MAT READ A( 1 TON, 1 TON ) (Redimension 


MAT READ B( 1 TON ) 
CALL SOLVE( A, B, X ) 
MAT PRINT USING” ##.##": X 


DATA 3 INumber of equations 
DATA 2, —4, 3, 3, 0, —1, 2, 5, 1 Coefficients row by row 
DATA —9, 4, 11 IRighthand side 

END 


SUB SOLVE( A(,) , B( ), Y() ) 
[Solves Ay = b 
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DIM C( 1, 1 ) {Working space 
MAT C = INV( A ) 
MAT Y= C*B 

END SUB 

Ok. run 


1.00 2.00 —1.00 


Gauss Reduction 


While the direct method is neat and easy to use, matrix inversion is very susceptible to 
rounding error, and other methods are often necessary. Gauss reduction, discussed in 
this section, is the basis of many of them. Let us take another system of equations: 


2x—ytz=4 
x+ty+z=3 
3x -y—-z=1. 


Write the coefficients of the lefthand side as a matrix, with the righthand side constants 
as a vector on the righthand side of the matrix, separated by a vertical line, thus: 


Bie ek I | 4 
I I 1 3 
ae ] 


This is simply shorthand for the original set, and is sometimes called the augmented 
matrix of the system. As long as we perform only row operations on the numbers, we 
can omit the symbols x, y, and z each time. We will still refer to the coefficient array as 
the matrix A. 

We start with the first row (R1), and call it the pivot row. We call the element a,; (= 2) 
the pivot element. Divide the whole pivot row by the pivot element, so the augmented 
array now looks like this: 


1 -1/2 1/2 eT 
i eae kd 3 
3 =[ =i 1 


Rows R2 and R3 are now called target rows. The object is to get zeros in all the target 
rows below (and above, if necessary) the pivot element. Take the target row R2. 
Replace each element in the row by itself minus the corresponding element in the pivot 
row. [he array now looks like this: 


Wem ie. liz 2 
0 3/2 1/2 ] 
Saale a1 


Now take the target row R3. To reduce a3; to zero with an operation involving the pivot 
row requires replacing the target row by itself minus the pivot row multiplied by a3; 
(bearing in mind for the subsequent computer solution that this operation can change 
the value of a3, itself!): 
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LeelizZ Wz 2 
OQ 3/2 W/2 1 
Q V2 =—s/2Z = 


We now designate R2 as the pivot row, and the new a2 as the pivot element. The whole 
procedure is repeated, except that the target rows are now R1 and R3, and the object 
is to get zeros in these two rows above and below the pivot element. The result 1s: 

I 0 2/3 7/3 

0 J 1/3 2/3 

0 0 —8/3 | —16/3 


Now take R3 as the pivot row, with the new a33 as the pivot element, and R1 and R2 


as target rows. After repeating similar operations on them, the array finally looks like 
this: 


l 0 0 1 
0 1 0 0 
0 0 ] 2 


Since we have retained the mathematical integrity of the system of equations by 
performing operations on the rows only, this is equivalent to 
x+0y+0z =1 
Ox+y +0z =0 
Ox +Oy+z2 =2 


The solution may therefore be read off asx = 1, y = 0, z =2. 


The subroutine Gauss below performs a Gauss reduction on any size system of 
equations. The augmented array A is passed as a parameter. On entry, its rightmost 
column should contain the righthand side constants of the equations. On return, the 
rightmost column will contain the solution. 


'Tests Gauss reduction subroutine 


DIM A( 1, 1 ) ' Augmented matrix 

READ N | Number of equations 

MAT READ A(N, 1: N+1 ) ! Redimension A 

CALL Gauss( A ) 

MAT PRINT USING "————.##": A | Solution is in last column 

DATA 3 

DATA 2, —1, 1, 4 | Rows of initial augmented matrix 


DATA 1, 1, 1, 3 

DATA 3, —1, —1, 1 

END 

SUB Gauss( A(,) ) 
lPerform Gauss reduction on A; solution will be in last column 
[Make each row the pivot row in turn, 
land divide each element in then pivot row by the pivot element 


LET N = Size( A, 1 ) ! Number of equations 
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FOR PivRow = 1 TON 
LET PivElt = A( PivRow, PivRow ) 
FOR J = 1 TO N+1 
LET A( PivRow, J ) = A( PivRow, J ) / PivElt 
NEXT J 
[Then replace every other row (target rows) by 
target row minus pivot row times element in 
target row and pivot column 
FOR TarRow = 1 TON 
IF TarRow <> PivRow THEN 
LET TarElt = A( TarRow, PivRow } 
FOR J = 1 TO N+1 
LET A( TarRow, J ) = A( TarRow, J) — A(PivRow, J) * TarElt 
NEXT J 
END IF 
NEXT TarRow 
NEXT PivRow 
END SUB 


Unfortunately, things can go wrong with our subroutine: 


l, 


The pivot element could be zero. This happens quite easily when the coefficients are 
all integers. However, rows of the array can be interchanged (see Ex. 14.5) without 
changing the system of equations. So a non-zero pivot element can often be found 
in this way (but see the next two cases). 

A row of zeros could appear right across the array (in which case a non-zero pivot 
element cannot be found). In this case the system of equations is indeterminate and 
the solution can only be determined down to as many arbitrary constants as there are 
rows of zeros. 

A row of the array could be filled with zeros, except for the extreme righthand 
element. In this case the equations are inconsistent, which means there are no 


solutions. 


It is a nice programming project to extend the above subroutine to deal with these three 


CaSes. 


Gauss reduction can also be used to invert a matrix. Suppose we want to invert the 


matrix 
2 2 2 
A= 3 vv 2 
3 2 3 
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Construct the augmented array ATII, i.e. 


2 
3 
3 


2 
2 
2 


2 
2 
3 
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where I is the identity matrix, and perform a Gauss reduction until the identity matrix 
has appeared to the left of the vertical line, so that the augmented array finally looks as 
follows: 


] 0 0 = I 0 
0 J 0 TL AN 
0 0 | Go =] Il 


The entity to the right of the line is the inverse of A. If A is not invertible, the process 
breaks down and a row of zeros appears. 


14.8. Volume of Excavation 


A problem that arises in the building industry is the calculation of the volume of earth 
to be excavated from a site. We assume that the excavation is to have a rectangular level 
base and vertical sides. The area to be excavated is surveyed, and the heights of the 
ground above the excavation base are found, say, on a 10 metre square grid. So part of 
a plan of such an excavation could look something like this: 


A B C 
3 395 ———— 386 ———— 356 
a a" 
te ee 


The numbers are the heights above the excavation base in centimetres. Consider the 
square bounded by A3, B3, A2 and B2. The volume of the vertical square prism 
excavated beneath it is the horizontal plan area times the average height of the corners 
above the base, 1.e. 


Volume = 10 x 10 x (3.95 + 3.86 + 2.85 + 2.95) / 4 cubic metres. 


We could do this for every vertical square prism to be excavated and add up all the 
volumes so calculated. However, an easier way presents itself if we spot that some 


corner heights are used in four squares, some in two squares, and some in only one, as 
shown below: 


Grid pt Cornerht No. of squares (n) n X corner ht 
corner appears in 
A3 3.95 ] 3.95 
B3 3.86 2 7.72 
C3 3.56 1 3.56 
A2 2.95 2 5.90 
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B2 2.85 4 11.40 
C2 2.48 2 4.96 
Al 2.45 1 2.45 
Bl 3.10 2 6.20 
Cl 3.00 ] 3.00 





TOTAL: 49.14 





From this table, the volume excavated may then be calculated as 


10 X 10 XK 49.14/ 4 = 1228.5 cubic metres. 


In general, the corner heights may be represented by a matrix H, say, where a particular 
height is given by /,;;, and where / and j label the rows and columns of the grid. Suppose 
there are mm rows and n columns in the grid. The contributions of the heights to the total 


volume are as follows: 


Corners in 1 square: /y; + Ay, + ly + Ain 


m—I n—] 
Corners in 2 squares: 2 2 (Ay + hi) +2 2 (Ay; + h,,,) 
[=2 jez 


m—-l1 n-l 


Cornersin4squares: 4 2 2 hy. 
i=2  j=2 


This sort of calculation is what computers were made for. The next subroutine computes 
the volume of excavation under a (7 X n) grid: 


‘Volume of Excavation 


DIM H( 1, 1 ) [Heights above level base 
READ M, N Number of grid points 
MAT READ H( M, N ) !Redimension 


CALL VolIEx( H, M, N, Vol ) 
PRINT USING “Volume excavated: ####.## cubic metres”: Vol 
DATA 3, 3 
DATA 3.95, 3.86, 3.56 
DATA 2.95, 2.85, 2.48 
DATA 2.45, 3.1, 3 
END 
SUB VoIEx( H(,), M, N, Vol ) 
(Computes volume of excavation 
! V1 : corners in one square 
| V2 : corners in two squares 
|! V4 : corners in four squares 


LET Vi = H( 1, 1) + H(1,N) +H(M,1) +H(M,N) 


FOR | = 2 TO M-1 
LET V2 = V2 +2*(H(1,1) +H(I,N)) 
NEXT | 


FOR J = 2 TO N-1 
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LET V2 = V2 +2*(H(1,J) +H(M,J)) 


NEXT J 
FOR | = 2 TO M—1 

FOR J = 2 TO N-1 

LET V4 = V4+ 4* H( 1, J) 

NEXT J 
NEXT | 
LET Vol = 100 * (Vi + V2 + V4) / 4 ! Total volume 

END SUB 


14.9. Area of a Site 


A frequent problem in land surveying is the calculation of the area of a plot of ground. 
Assuming the sides of the plot to be straight, this amounts to finding the area of an 
irregular polygon, i.e. an n-sided figure with straight sides. The algorithm outlined here 
uses the determinant of a matrix to compute this area. 


Consider the (3 x 3) matrix 


411; @\2 443 
A = €2; @22 423 
43; 432 33 
Its determinant, Det( A ), is defined as 
Det( A ) = a)1(a22a33 — 423032) + Q42(@23031 — A21033) + 13(@21432 — 422431) . 
Now consider the triangle in Fig. 14-2. 


Figure 14-2. 


(X23 Y2) 


(x1; Yi) < 





(x3; y3) 
If the positions of its vertices are represented by Cartesian co-ordinates in the usual way, 
the area of the triangle may be given as 


Pal l 1 
Area = 0.5 X Det( | yy yo y3 | ) 
Xi, X42 X3 


(this is not difficult to prove: drop perpendiculars from the vertices to the x-axis and use 
the areas of the resulting trapezia in the figure to find the area of the triangle). 
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The point about this is that a polygon with vertices may be broken up into (m—2) 
triangles sharing a common vertex by drawing lines from the common vertex to each 


other vertex in turn, as shown 1n Fig. 14-3. 


Figure 14-3. (x33 3) (x43 Ya) 


(x2: y2) 





' fp) 
The area of the ith triangle (numbered from the left) in the composite figure is thus 
] ] ] 


0.5 x Det | yr itr Yi+2 
Xy Xen X41 


(*) 


as can easily be seen by writing out the expression for the case of a six-sided polygon, 
for example. The area of the n-sided polygon thus formed is the sum of the areas (*) for 
{running from 1 to (n—2). The formula works, by the way, even if some of the interior 
angles of the polygon are reflex. This is because the sign of a determinant changes if two 
rows or columns are interchanged (puzzle that one out if you want to!). 


The program that follows computes the area of any polygon, where the only condition 
on the data 1s that the co-ordinates of the vertices must be given in order as One moves 
around the figure in a clockwise sense. The sample is for a seven-sided figure with one 
reflex angle, the area of which 1s 4 (this is the figure drawn by the first MAT PLOT 
example in section 14.3). 


‘(Computes area of polygon 


DIM A( 3, 3 ) 
DIM X( 1 ) IX co-ords of corners 
DIM Y( 1 ) 'Y co-ords of corners 
READ N (Number of points 
MAT READ X(N), Y(N) 
LET Area = 0 
LET A( 1, 1), A( 1, 2), A( 1,3) = 1 
LET A( 2, 1 ) = X(1) 
LET A( 3, 1) = Y(1) 
FOR | = 1 TO N-2 
LET A( 2,2) = Y¥( I+1 ) 
LET A( 3, 2) = X( I+1 ) 
LET A( 2,3) = Y¥( I42 ) 
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LET A( 3, 3) = X( 142 ) 
LET Area = Area + 0.5 * Det( A ) 
NEXT | 


PRINT Area 

DATA 7 

DATA O, —1, 0, 1, 1, 2, 2 IX co-ords 
DATA QO, 1, 2, 2, 1, 1, 0 lY co-ords 
END 


14.10. Rotation of a Co-ordinate System 


When a Cartesian co-ordinate system is rotated counterclockwise through an angle a 
the new co-ordinates (x’; y’) of a point in the rotated system are given by 


f 


x x cos(a) + y sin(a) 


y’ = —x sin(a) + y cos(a) 


where (x; y) are its co-ordinates before rotation. In section 11.1 we saw how to compute 
the new co-ordinates using a function. However, this transformation may be written 
more concisely using matrix multiplication: 


X’=AX 


where A = 7 
? —sin(a) cos(a) 





cos(a)  sin(a) | 


and A = ie ) xX’ = 
| ¥ 





The program below prints out the new co-ordinates of a set of points after a rotation 
specified by the user (this is the basis the True BASIC Rotate graphics function). 


(Rotation of co-ordinate system 
DIM R( 2, 2 ) [Rotation matrix 
e) 


DIM X( 1Old co-ords 
OPTION ANGLE DEGREES 


INPUT PROMPT "Angle of rotation (degrees): ”: Ang 


LET R( 1, 1) = Cos( Ang ) Set up rotation matrix 
LET R( 1, 2 ) = Sin( Ang ) 
LET R( 2,1) =—RA( 1, 2) 
LET RO-2;2>):= RC, 1 ) 
DO WHILE MORE DATA 
MAT READ X [Read old co-ords 
MAT X = R * X [Rotate them 
PRINT USING" ——.####": X(1), X(2)  !Print new co-ords 
LOOP 
DATA 1, 0, 2, 0, 3, 0, 4, 0, 5, 0 [All on X-axis 


END 
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Summary 

* A table or matrix may be represented in True BASIC by a two- dimensional array. 
* Various operations may be performed directly on matrices with the MAT statements. 
+ A matrix Xin the parameter list of a subroutine definition must be specified thus: X(,) 


EXERCISES 
Assume in these exercises that all arrays have lower bounds of 1. 


14.1 Write your own subroutine Trans( A(,) ) which replaces the (7 X 777) matrix A by its 
own transpose (without using the Trn function). 

14.2 Run the Leslie matrix model of the American robin using the population values 
suggested and see if you can find the stable age distribution. 

14.3 Compute the limiting probabilities for the drunk in section 14.6 when he starts at 
each of the remaining intersections in turn, and confirm that the closer he starts 
to the bar, the more likely he 1s to end up there. 

14.4 Write a program to simulate the drunk’s progress down the street. Start him ata 
given intersection, and generate a random number to decide whether he moves 
toward the bar or home, according to the probabilities in the transition matrix. For 
each simulated random walk, record whether he ends up at home or in the bar. 
Repeat a large number of times. The proportion of walks that end up in either 
place should approach the limiting probabilities computed using the Markov 
model in Ex. 14.3. Hint: if the random number ts less than 2/3 he moves toward 
the bar (unless he 1s already at home or the bar, in which case that random walk 
ends), otherwise he moves toward home. 

14.5 Write a subroutine RowSwop( A(,), |, J) to interchange rows | and J of a matrix A. 

14.6 Write a subroutine Sum( A(,), Row, Col, |, J ) to find the sums (Row and Col) of the 
Ith row and Jth column respectively of the matrix A. 

14.7 Write a subroutine MaxElt( A(,), EltWax, RowMax, ColMax ) to find the largest 
element (EltMax) of a matrix A, and the row (RowMax) and column (ColMax) in 
which it occurs. 

14.8 Write a subroutine to invert a square matrix by Gauss reduction. It should have 
a parameter which is set to 0 on entry, and which should be changed to 1 on return 
if the inverse cannot be found. 

14.9 The following system, suggested by T.S. Wilson (cited by Froberg, 1964), 
illustrates nicely the problem of ill-conditioning mentioned in Ex. 7.3: 


10x+/y+ 8 + Jw =32 

LES) 62 + Sw = 23 

8x +6y+10z + Iw =33 

x+5y+ 9z +10w =31. 
Use the Gauss reduction program in this chapter to show that the solution is x = 
y =z=w=1. Then change the righthand side constants to 32.01, 22.99, 32.99 
and 31.01 (a change of about 1 in 3 000) and find the new solution. Finally, change 
the righthand side constants to 32.1, 22.9, 32.9 and 31.1 and observe what effect 
this has on the “‘solution”’. 


CHAPTER 15 


INTRODUCTION TO NUMERICAL 
METHODS 


One of the major scientific uses of modern digital computers is in finding numerical 
solutions to mathematical problems which have no analytical solutions, i.e. solutions 
which may be written down in terms of polynomials and the known mathematical 
functions such as logarithms, sines, exponentials, etc. In this chapter we look briefly at 
three areas where numerical methods have been highly developed: solving equations 
evaluating integrals and derivatives, and solving differential equations. 


15.1. Equations 


In this section we consider how to solve equations in one unknown numerically. ‘1. 
general way of expressing the problem is to say that we want to solve the equation 
IX) = 9, 

i.e. we want to find the value(s) of x that make the lefthand side vanish, where f(x) 1s 
any given function. Such a value of x is called a root of the equation. There are 
mathematical solutions for a very small class of functions f. For example, if f(x) is a 
polynomial of order two (i.e. a quadratic equation), there is a well-known formula for 


the solution. But there is no general method for finding an analytical solution for any 
given f(x). 


Newton's Method 


This is perhaps the easiest numerical method to implement for solving equations. The 
basic idea is as follows: given some initial guess at the root x9, the method makes use of 
the first derivative f’ (xo) to improve the guess by computing x,, which in general is closer 
to the root than the first guess. The process is continued until the required accuracy 1s 
reached. Fig. 15-1 illustrates Newton’s method geometrically. 


From the figure we see that 

f’ (xx) = UxK) — OV XK = XK41) - 

Solving for x¥,41 gives 

Xe = XK — fxn) f' (xe) . (1) 


Equ. (1) is Newton’s algorithm. It is implemented as follows: 


246 CHAPTER 15 


Read in a starting value x, and required accuracy (e) 
2. While | f(x) | = e repeat up to 20 times, say: 
2.1. Replace x by x — f(x)/f'(x) 
2.2. Print x and f(x) 
3. Stop. 
It is necessary to limit step 2 since the process may not converge (see below). 


_— 


Figure 15-1. Graphical derivation of Newton’s Method 


i PUY) 


root 





| Uk + | Xk 
A program using Newton’s method to solve the equation 


r+tx—3=0 

starting with x = 2, 1s given in section 11.1. From the output shown there we can see that 
the process converges rapidly. The method is so simple that it can even be implemented 
on a calculator without much effort. 

As an exercise, try running the program with different starting values of x to see whether 
the algorithm always converges. 


Also try finding a non-zero root of 


2x = tan(x) 
using Newton’s method. You might have some trouble with this one. For example, the 
following output results if we start the process with x = 2: 


x f(x) 
3.639 .6/735e+01 
5.905 —.1221e+02 
8.586 .1828e+02 

84.580 .1694e+03 


The estimates of the root are clearly diverging. In fact the method has jumped past a 
number of roots, as can be seen by sketching the graph carefully. This highlights the only 
serious problem that arises with Newton’s method: it only converges to a root if the 
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starting guess is “‘close enough’. Since “‘close enough” depends on f(x) and on the root, 
one can obviously get into difficulties here. The only remedy is some intelligent 
trial-and-error work on the initial guess. 


Newton’s method may also fail if f(x) is very “flat” near a root, since the algorithm 
requires division by f’(x), which can get very small in this case. This can easily result in 
an overflow error. If the method fails to find a root, the Bisection method, discussed 
below, should be used. 


Newton’s method may be built in (hardwired) to calculators to evaluate reciprocals and 
nth roots, for example. To find the reciprocal of a number A amounts to solving the 
equation 


fx)=1/x —A=0. 
Applying equ. (1) to this form of f(x) gives, after a little algebra, 
Xe+1 = X,(2 — Axx). 


Note that this requires no divisions: it was used on old-fashioned computers with no 
division facility. 


The Hire Purchase Rip-Off 


When an item is bought on so-called ‘‘hire purchase’’, the interest is calculated | 

advance in one lump sum, which is added to the capital amount, the sum being equally 
divided over the repayment period. The buyer, however, is often under the impression 
that the interest is calculated on a reducing balance. For example, suppose the cash 
price of the item is $10000, and equal monthly payments must be made over a period 
of three years. If the quoted hire purchase interest rate is 25% (1984 figures in South 
Africa), the payments are calculated by adding three times 25% of $10000 to $10000, 
and dividing the sum by 36, giving repayments of $486 per month. The effect of this 1s 
that the total interest charges over the three-year period amount to $7500. It is 
extremely interesting, and revealing, to work out what effective nominal annual interest 


rate, compounded monthly on a reducing balance, would result in the same monthly 
repayments. 


When a loan of amount A is repaid over a period of k years, with a nominal annual 
interest of r on the reducing balance, the payments P made n times a year are given by 
P = (r/n)A(1 + r/n)"*/[(1 + rin) — 1]. 


Our problem amounts to solving this equation for the unknown effective interest rate 
r, when A = 10000, P = 486, k = 3 andn = 12. It is convenient to change the unknown 
to x, where 


x=1+r/n. 
If we re-arrange the expression for P, and define f(x) as 
f(x) = Ax"! — (A + P)x™ +P; 


then we have to solve the equation 
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fx) =0, 


which must be done with Newton’s method. This requires the first derivative of f(x), viz. 


f'(x) = (nk + 1)Ax™ — nk(A + P)x™*—!. 


As an exercise, program Newton’s method to solve this problem. Remember that the 
interest rate r is given by 


r=n(x-1). 


You will find that the effective annual interest rate 1s no less than 40.8%! 


[he Bisection Method 

Consider again the problem of solving the equation 
fxyHxr+x—3=0. 

We attempt to find by inspection, or trial and error, two values of x, call them x, and 
Xr, such that f(xv,,) and f(xr) have different signs, 1.e. f(x_)f(xr) < 0. If we can find two 
such values, the implication is that the root lies somewhere in the interval between 
them, since f(x) changes sign on this interval (see Fig. 15-2). In this example, x, = 1 and 
Xp = 2 will do, since f(1) = —1 and f(2) = 7. In the Bisection method, we estimate the 
root by x,z, where x, is the midpoint (hence the name bisection) of the interval |v, : x}, 
1.e. 
X= (x, _ Xp)/2 (2) 
Then if f(x,,) has the same sign as f(x,), as drawn in the figure, the root clearly lies 
betwen x,, and xr. We must then redefine the lefthand end of the interval as having the 
value of x,y, 1.e. we let the new value of x, be x,,. Otherwise, if f(x,,) and f(x,) have 
different signs, we let the new value of xr be x,y, since the root must lie between x, and 
Xv In that case. Having redefined x, or xp as the case may be, we bisect the new interval 
again according to equ. (2) and repeat the process until the distance between x, and xp 
IS as small as we please. 
The neat thing about this method ts that we can calculate before starting how many 
bisections are needed to obtain a certain accuracy, given initial values of x, and xp. 
(With Newton’s method, we can never be sure exactly how many iterations will be 
needed.) Suppose we start with x, = a, and xp = b. After the first bisection the worst 


possible error (£7) in xy, 1s 
E, — la aa b|/2 : 


since we are estimating the root as being at the midpoint of the interval [a; b]. The worst 
that can happen is that the root is actually at x, or xr, in which case the error is £;. After 
the second bisection, the error E> will obviously be half of Fy, i.e. 


E> = |a— b\/4 = |a — b|/22 
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Figure 15-2. The Bisection Method 


Y 
SL) 


0) Xp XA/ é XR x 


Carrying on like this, after m bisections the worst possible error £,, is given by 
E,, = |a — b{/2". 


If we want to be sure that this is less than some specified error E, we must see to it that 
n satisfies the inequality 


la—bi/2<E, 


i.e. 2" > la — DIVE, 


i.e. 2 log(2) > log(|a — b\/E), 
1.e. 1 > log(ja — b|/E)/log(2) (3) 


Since #1 is the number of bisections, it must be an integer. The smallest integer n that 
exceeds the righthand side of inequality (3) will do as the maximum number of 
bisections required to guarantee the given accuracy E. 


The following scheme may be used to program the Bisection method. It will work for 
any function f(x) that changes sign (in either direction) between the two values a and 5, 
which must be found beforehand by the user. 


1. Read a, band E 
2. Initialize x, and xp 
3. Compute maximum bisections n from inequality (3) 
4. Repeat n times: 
4.1 Compute x,y according to equ. (2) 
4.2 If f(x.) f(xy) > 0 then 
4.2.1. Let Xi —-XM 
otherwise 
4.2.2. Letxre =Xy 
5. Print root xy 
6. Stop. 


We have assumed that the procedure will not find the root exactly because of the minute 
chances of the equality comparison being true. But if you are skeptical, you can replace 
step 4 in the plan with a DO-WHILE loop! 
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An advantage of the Bisection method is that it is guaranteed to find you a root if you 
can find two starting values for x, and xz between which the function will change sign. 
You can also compute in advance the number of bisections needed to attain a given 
accuracy. Its disadvantage is that it is an inefficient method, in that successive bisections 
do not necessarily move closer to the root, as often happens with Newton’s method. In 
fact, it is interesting to compare the two methods on the same function to see how many 
more steps the Bisection method requires than Newton’s method. For example, to solve 


the equation stated above, 
xr+x—3=0, 
the Bisection method takes 21 steps to reach the same accuracy as Newton’s in five 


steps. 


15.2. Integration 


Although most respectable mathematical functions can be differentiated analytically, 
the same cannot unfortunately be said for integration. There are no general rules for 
integrating, as there are for differentiating. (This is an interesting fact of mathematical 
life which you may wish to ponder!) For example, the indefinite integral of a function 
as simple as 


exp(—x*) 

cannot be found mathematically. We therefore need a numerical method for evaluating 
integrals. 

This is actually quite easy to do, and depends on the well-known fact that the definite 
integral of a function f(x) between the limits x = a and x = b is equal to the area under 
f(x) bounded by the x-axis and the two lines x = a and x = b. So all numerical methods 
for integrating simply involve more or less ingenious ways of estimating the area under 
f(x). 

One rough and ready, yet perfectly valid, way of doing this is by drawing the curve of 
f(x) on squared graph paper (the smaller the squares the better) and counting the 
number of squares that fall under the curve. The only problem 1s what to do when the 
graph cuts across a square: do you count the square, or not, or how much of it do you 
count? The method that we will consider below, called the Trapezoidal (or Trapezium) 
Rule, effectively approximates f(x) by a straight line across each square that it crosses, 
for the compelling reason that every schoolchild knows how to calculate the area of the 
resulting shape, which Is a series of trapezia. 


[he Trapezoidal Rule 


Before we derive the rule, a little notation will make the problem clearer. We want to 
integrate f(x) with respect to x between the limits x = a and x = b. We divide the area 
under f(x) up into a lot of vertical panels of equal width / (called the panel-width, or 
step-length, or grid-size). One such panel is shown in Fig. 15-3. If there are m such 
panels, then clearly 
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Figure 15-3. A typical panel for the Trapezoidal Rule 





h = (b — a)/n, so that n = (b — a)/h. (4) 
The vertical edges of the panels will meet the x-axis at the points 
Xo = A,X, =Ath, x. =at+2h,... ,x,=atnh=b. (5) 


If we draw a Straight line across the top of each panel, from the point (x9; f(xo)) to 
(x1; f(%1)), and then to the point (x2; f(x2)), etc., we will have a set of n trapezia, and 
we can approximate the area under f(x) by the area of these trapezia. 


One such trapezium is shown in Fig. 15-3. The area ABCDE is 

h(AD + BE)/2 = h[f(x;:) + f(xi41))/2. 

The area S we are after is the sum of the areas of all such trapezia, i.e. 

S = h{f(xo) + fxi)\/2 + Aff(xir) + flx2)/2 + ... + Alfen-1) + f(xn)]/2 


n—| 


= 0.5h[f(a) + f(b) + 2 = f(x) (6) 


Equ. (6) is the Trapezoidal Rule. As an example, we will write a program to evaluate 
the integral of 


fx)= x2 


between the limits 0 and 4. The exact answer is 64. The program is quite general. It 
assumes that / will be chosen in such a way that the number of steps will be an integer. 


DECLARE DEF Trap 

INPUT PROMPT "A, B, H:”: A, B, H 
PRINT Trap( A, B, H ) 

END 


DEF F( X ) 

Let bh oS X38 
END DEF 
DEF Trap( A, B, H ) 


Integral of F(X) from A to B with a step-length of H 
IF(X) must be an external function 
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DECLARE DEF F 

LET Sum = 

LET N = Round( (B—A)/H ) 

FOR | = 1 TO N-1 

LET Sum = Sum + F(A +1*H ) 

NEXT | 

LET Trap = H/ 2 * (F( A) + F( B ) + 2 * Sum) 
END DEF 
Table 15-1 shows the results obtained for some different values of /. It is clear that as 
h gets smaller, the estimated integral S becomes more accurate. You can make / as 
small as you like, which ts not the case with differentiation (see below). 


Table 15-1. Effect of different step-lengths when integrating 


Integral (S) 
68.0000 


65.0000 
64.0400 
64.0004 





This example assumes that f(x) 1s a continuous function which may be calculated at any 
x. In practice, the function could be discrete points supplied as a result of an experiment. 
For example, the speed of an object v(t) might be measured every so many seconds, and 
One might want to estimate the distance travelled as the area under the speed-time 
graph. The above program can still be used as long as one replaces the function F(X) by 
an array F(0:N) into which the experimental values have been read. The references to 
F(A), F(A +1 * H) and F(B) in the program will have to be replaced by F(0), F(l) and F(N) 


respectively. 


15.3. Numerical Differentiation 


The Newton quotient for a function f(x) is given by 


[f(x +h) — f(x) ]/h, (*) 
where /1 is “‘small’’. As f/ tends to zero, this quotient approaches the first derivative, 
df/dx. The Newton quotient may therefore be used to estimate a derivative numerically. 
It is a useful exercise to do this with a few functions for which you know the derivatives. 
This way you can see how small you can make #: before rounding errors cause problems. 
These arise because expression (*) involves differencing two terms that eventually 
become equal when the limit of the computer’s accuracy is reached. As an example, the 
following program uses the Newton quotient to estimate f’(x) for 


fx) = 
atx = 2, forsmaller and smaller values of (the exact answer is 4). The results are shown 
in Table 15-2. 
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(Numerical derivatives the Newton way 


DEF F(X) =X%* 2 


LET X = 2 
LET H = 1 
FOR | = 1 TO 17 


LET Df = (F(X +H)—-F(X))/H 
PRINT USING"’#.###°°°* #.4#####4##": H, DI 
LET H = H/ 10 

NEXT | 


END 

The results show that the best / for this particular problem is about 1e—8. But for h 
much smaller than this the estimate becomes totally unreliable. Generally, the besth for 
a given problem can only be found by trial and error. Finding it constitutes a major 


problem of numerical analysis. This problem does not arise with numerical integration, 
because numbers are added to find the area, not subtracted. 


Table 15-2. Effect of different step-lengths when differentiating numerically 




















1.000e+00 5.Q0000000 
1.000e—01 #4.10000000 
1.000e—02 £4.01000000 
1.000e—03 4.00100000 
1.000e—04 #£4,00010000 
1.000e—05 4.00001000 
1.000e—06 4.00000100 
1.000e—07 4,00000009 
1.000e—08 3.99999998 
1.000e—09 4.00000033 
1.000e—10 4.Q00000033 
1.000e—-11 4.00000033 
1.000e—12 4.00035560 
1.000e—13 3.99680289 
1.000e—14 #4.08562073 
1.000e—-15 3.55271368 
1.000e—16 .OOO00000 


The next program uses the Newton quotient to draw the derivative of any given 
function. The function is also drawn, and a subroutine from the True BASIC Graphics 
Library is used to draw the axes and tick marks. The program could be a useful aid to 
teaching calculus. For example, zeros of the derivative can be clearly seen when the 
function has a maximum or minimum. You will be surprised at the effect changing h 
between, say, 2 and 0.0001 has on the numerical derivative of the particular function 
used here. 


Lg 
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Plots f(x) and f'(x) 


LIBRARY ”A:Graphlib” 

DEF F( X ) = 4 * Sin( X ) + Cos( 4 * X ) 
DEF DF( X, H ) = (F( X + H )—F( X ))/ H 
SET MODE “hires” 


LET YMin = —8 

LET YMax = 8 

LET XMax = 10 

OPEN #1: SCREEN 0, 1, 0.5, 1 lWindow for f(x) 


SET WINDOW 0O, XMax, YMin, YMax 

CALL Ticks( 2, 2 ) 

OPEN #2: SCREEN 0, 1, 0, 0.49 lWindow for f’(x) 
SET WINDOW 0, XMax, YMin, YMax 

CALL Ticks( 2, 2 ) 


WINDOW #1 [First draw f(x) 
FOR X = 0 TO 3 * Pi STEP Pi / 40 
PLOT X, F( X ); 
NEXT X 
PLOT 
SET CURSOR 1, 2 [Label at top of window 
PRINT "f(x)” 
PLOT 0, YMin; XMax, YMin Divide the windows 
WINDOW #2 Then draw f'(x) 
SET CURSOR 1, 2 [Label at top of window 
PRINT "f’(x)” 
DO 
SET CURSOR 11, 2 
PRINT Repeat$(” ”, 6 ) [Blank out previous input 


SET CURSOR 11, 2 
INPUT PROMPT "H?”: H 
IF H <> O THEN 
FOR X = 0 TO 3 * Pi STEP Pi / 40 
PLOT X, DF( X, H ); 
NEXT X 


END IF 1(x) 
PLOT 


LOOP UNTILH =O - 
END 
Output: 


J 


-. 
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15.4. First-Order Differential Equations 


The most interesting situations in real life that we may want to model, or represent 
quantitatively, are usually those in which the variables change in time (e.g. biological, 
electrical or mechanical systems). If the changes are continuous, the system can often 
be represented with equations involving the derivatives of the dependent variables. 
Such equations are called differential equations. The main aim of a lot of modelling 1s 
to be able to write down a set of differential equations that describe the system being 
studied as accurately as possible. When one tries to “‘solve”’ these equations, one usually 
runs into difficulties pretty soon, because only a very small class of differential equations 
can be solved analytically. This is where numerical methods come in. We will consider 
only the simplest method of numerical solution in this section: Euler’s method. 


To illustrate it, we will take an example from Newtonian dynamics, of motion under 
gravity against air resistance. Suppose a parachutist steps out of a hovering helicopter, 
but does not open his parachute for 24 seconds. We would like to find his velocity as a 
function of time during this period. Assuming air resistance cannot be neglected (ask 
any parachutist!), the man falls subject to two opposing vertical forces: gravity acting 
downward, and air resistance acting upward. The air resistance force is assumed to be 


proportional to the square of his velocity (this is fairly accurate). Applying Newton’s 
second law to the parachutist, we have 


ma = mg — pv-, 


where 772 1s his mass, a his resultant downward acceleration, g the acceleration due to 
gravity, v his velocity, and p is a constant of proportionality. Dividing by m, we can 
rewrite this as 


dv/dt = g — ky*, (1) 


where k = p/m. Equ. (1) is the differential equation describing the motion of the 
parachutist under gravity. The constant k varies with shape and mass, and may be found 
experimentally from the terminal velocity of the falling object. This terminal velocity 
(vr) is reached when the object stops accelerating, and may be found by equating the 
righthand side of equ. (1) to zero. Thus 


ene V(g/k). 

For a man wearing an unopened parachute, k is found to be about 0:004. Before we 
proceed with the numerical solution of equ. (1) we should note that this particular 
differential equation can be solved analytically, since it is of the type called variable 


separable. If you know about such things, you should be able to do the integration and 
show that 


v(t) — a(C i e~ <aKty/(C + a). (2) 
where 
a= vryand C = [a + v(0)]/[a — v(0)]. 


The basic problem to be overcome in trying to solve equ. (1) numerically is the fact that 
a derivative (like dv/dt) can’t be represented exactly on a digital computer, since the 
limit (as A tends to zero, where h is a small increment in ¢) cannot be found exactly. We 
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therefore need to approximate the derivative, and we use the Newton quotient to do 
this. 


Euler's Method for Parachutes 
We now consider how to solve 
dv/dt = g — kv’, (1) 


numerically for 0 < t < 24 seconds (since the air resistance constant k will change when 
the parachute is opened at t = 24 seconds). Euler’s method consists of replacing the 
derivative on the lefthand side of equ. (1) by its Newton quotient. If we do this we get 


[v(t+h) — (ph = g — kv* (0). 
Making v(t + h) the subject of this equation leads to 
v(it+th) = v(t) + Alg — kv7(0)]. (4) 


The point about equ. (4) is that given v at some time ¢ (e.g. tf = 0), we can compute v 
at time (t+/). We can then replace v(t) on the righthand side of equ. (4) by the v(t + /2) 
we have just found, and get v(t + 2h), and so on, until we have computed v over the 
whole time interval. 


The only thing that isn’t obvious about this exercise is what value to give /1. Let’s try 
h = 2 seconds. Then from equ. (4), starting at t = 0, we get 


v(2) = v(0) + 2[9.8 — 0.004 x v7(0)] 
= 0 + 2[9.8 — 0] 
= 19.6 m/s (the exact value from equ. (2) is 18.64 m/s). 


We have succeeded in integrating the differential equation numerically from ¢t = 0 to 
t = 2! Putting v(2) into the righthand side of equ. (4) now gives us v(4): 
v(4) = v(2) + 2[9.8 — 0.004 x v4(2)] 


= 19.6 + 2[9.8 — 0.004 x 19.67] 
= 36.13 m/s (exact: 32.64 m/s). 


v(6) can now be computed: 


v(6) = v(4) + 2[9.8 — 0.004 x v?(4)] 
= 45.29 m/s (exact: 41.08). 


We can go on like this for as long as we like. In general, equ. (4) gives us Euler’s rule 
for computing the next v™ once we have v: 
vt =yt+h(g — kv’). (5) 


It is very easy to write a program to do this, and then we can also test the accuracy of 
the numerical method by trying different values of h and comparing the results with the 
exact solution. [he following program uses Euler’s method as implemented in equ. (4) 
or (5) to compute v for the first 24 seconds of the parachutist’s motion. 
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[Euler's (rhymes with boiler’s) method 


LET G = 9.8 

READ K, H, V 

FOR T = H TO 24 STEP H 
LET V=V+H * (G@-—K * V * 2) IFrom equ. (5) 
PRINT USING "##.4# ##.##: T, V 

NEXT T 

DATA 0.004, 2, 0 

END 


Table 15-3. Euler’s method on equ. (1): parachute closed 


Velocity (m/s) 
h=0.5 Exact 





Table 15-3 shows the results for h = 2 and h = 0.5, compared with the exact solution 
computed from equ. (2) taking v(0) = 0, since the helicopter is hovering. We see from 
the table that the numerical solution is quite a lot better for the smaller of the two values 
of , the worst error being only about 3%. We also see that the parachutist’s terminal 
velocity (49.5 m/s) is correctly computed for both values of h. The errors in fact get less 
and less as t approaches 24 seconds. 


In a real problem, we don’t usually know the exact answer, or we wouldn’t be using a 
numerical method in the first place. The only check is to use smaller and smaller values 
of # until it doesn’t seem to make much difference. 


Now let’s see what happens when the man opens his parachute at t = 24 seconds. The 
air resistance term will be different now. For an open parachute, k = 0.3 1s quite 
realistic. We can use the same program as before with a few minor changes, and 
obviously we need to supply a new starting value of 49.49 for v. Since h = 0.5 worked 
well last time, we try the same value now. The results are rather surprising: 


Time Velocity 
24.5 — .3130e+03 
25.0 —.1500e+05 


25.5 —.3378e+08 
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26.0 —.1712e+15 
26.5 — 4395e+28 


Not only does the man fly upward, he does so with tremendous speed, and soon exceeds 
the speed of light! The results make nonsense physically. Fortunately, in this example 
our intuition tells us that something is wrong. The only remedy is to reduce /#. Some 
experimenting will reveal that the results for h = 0.01 are much better. A selection of 
these are shown in Table 15-4. To compute 


Table 15-4. Euler’s method on equ. (1): parachute open 










Time Velocity (m/s) 
| (secs) h=0.01 Exact 





24.01 42.24 43.18 
24.02 36.99 38.31 
24.03 32.98 34.45 
24.04 29.81 31.31 
24.05 Lien 28.71 
24.06 25.12 26.53 
24.07 23.32 24.66 
24.08 21.79 23.06 
24.09 20.46 21.66 
24.10 19.30 20.43 
24.20 12.69 13.32 
24.30 9.85 10.24 
24.40 8.34 8.59 
24.50 7.49 7.62 
24.60 6.88 7.00 
24.70 6.51 6.60 
24.80 6.27 6.33 
24.90 6.10 6.14 
25.00 5.98 6.02 
26.00 5.73 


JAZ 


the exact solution correctly from equ. (2), t= 0 must be when the parachute opens, so 
v(O) = 49.49. 


It is instructive to examine why the method breaks down for h = 0.5 with the parachute 
open. Euler’s method basically assumes that the derivative dv/dt (i.e. acceleration) is 
constant during the interval h. The use of the Newton quotient implies this. However, 
a glance at the correct results in Table 15-4 shows that this assumption doesn’t hold over 
the period from t = 24 to t = 24.5 seconds. At the beginning of this period there 1s an 
enormous deceleration of about 6 m/s? over an interval of 0.01 seconds, whereas by the 
end of the first half second, the new terminal velocity has nearly been reached. The only 
way to correct the problem is to go on reducing / until the results seem reasonable. The 
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principle is that A must be small enough to make the derivative approximately constant 
over the interval h. 


Finally, we should note that Euler’s method will be just as easy to compute if the air 
resistance term is not kv’, but kv':® (which is more realistic), although now an analytic 
solution cannot be found. 


Euler’s Method in General 


In general we want to solve a first-order differential equation of the form 

dy/dx = f(x, y), _y(O) given. 

Euler’s method replaces dy/dx by its Newton quotient, so the differential equation 
becomes 

L(x +h) — yx) /h = fix, y). (6) 
Denoting y(x) by y and y(x + h) by y*, we can use equ. (6) to get y™ in terms of y, 
Starting with y = y(Q): 

y= y + hflX; y)- (7) 


Equ. (7) is repeated, replacing y by y* each time, until we have computed y over the 
required range of integration. 


Euler's Method for Bacteria Growth 


Euler’s method performs quite adequately in the parachutist problem once we have go 
the right value of the step-length h. In case you think that the numerical solution of all 
differential equations is just as easy, we will now consider an example where Euler's 
method doesn’t do too well. 

Suppose a colony of 1000 bacteria are multiplying at the rate of r = 0.8 per hour per 
individual (i.e. an individual produces an average of 0.8 offspring every hour). How 
many bacteria are there after 10 hours? Assuming that the colony grows continuously 
and without restriction, we can model this growth with the differential equation 
dN/dt=rN, N(0) = 1000, (8) 


where M(t) is the population size at time t. This process is called exponential growth. 
Equ. (8) may be solved analytically to give the well-known formula for exponential 
erowth: 


N(t) = N(O)e”. (9) 


To solve equ. (8) numerically, we apply Euler’s algorithm to it by replacing dN/df by its 
Newton quotient, to get 


N(t + h) = N(t) + rhN(t). 
Using the notation of equ. (5), this can be written more concisely as 


Nt =N+fPrhN, O 
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where N = 1 000 at time ¢ = 0. We use equ. (10) repeatedly, replacing N by N* each 
time. Taking = 0.5 gives the results shown in Table 15-5, where the exact solution 
according to equ. (9) is also given. 


Table 15-5. Bacteria growth (/ = 0.5) 


Population N(f) 





time Euler Predictor Exact 





(hours) Corrector 
0.5 1400 1480 1492 
1.0 1960 2190 2226 
1.5 2744 3242 3320 
2.0 3842 4798 4953 
DO) 5378 7101 7389 
3.0 7530 10509 11023 
3.5 10541 15554 16445 
4.0 14758 23019 24533 
4.5 20661 34069 36598 
5.0 28925 50422 54598 
5.5 40496 74624 81451 
6.0 56694 110444 121510 
6.5 79371 163457 181272 
7.0 111120 241916 270426 
7.5 155568 358035 403429 
8.0 217795 529892 601845 
8.5 304913 784240 897847 
9.0 426879 1160676 1339431 
9.5 597630 1717800 1998196 
10.0 836683 2542344 2980958 


| 


This time the numerical solution (in the column headed Euler) is not too good. In fact, 
the error gets worse at each step, and after 10 hours of bacteria time it is about 72%. Of 
course, the numerical solution will improve if we take h smaller, but there will still 
always be some value of f, however big, where the error exceeds some acceptable limit. 


We may ask why Euler’s method works so well with the parachutist, but so badly with 
the bacteria. The answer, as we mentioned earlier, lies in the type of numerical 
approximation to the derivative that is used. By using the Newton quotient each time 
in Euler’s method, we are assuming that the derivative changes very little over the small 
interval fA, 1.e. that the second derivative is very small. Now in the case of the 
parachutist, by differentiating equ. (1) again with respect to time, we see that 


d?v/dP = —(2kv)dv/dt, 


which approaches zero as the falling object reaches its terminal velocity (since dv/dt 
approaches zero at terminal velocity, by definition). In the bacteria case, the second 
derivative of M(t) is found by differentiating equ. (8). We get 
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d?N/d2 = rdN/dt = PN(0). 


This is far from zero at t = 10. In fact, it is approaching three million! The Newton 
quotient approximation gets worse at each step in this case. 


There are better numerical methods for overcoming these sorts of problems. Two of 
them are discussed below. More sophisticated methods may be found in most textbooks 
on numerical analysis (e.g. Conte and De Boor, 1972). However, Euler’s method may 
always be used as a first approximation as long as you realize where and why errors may 
arise. 


A Predictor-Corrector Method 


One improvement on the solution of 

dy/dx = f(x, y), y(O) given, 

is as follows. Euler says compute 

y" =y + hf, y) (7) 


repeatedly. But this formula favours the old value of y in computing f(x, y) on the 
righthand side. Surely it would be better to say 


yr =yt+hlfa +h, yt) + fx, y)/2, (11) 


since this also involves the new value y* in computing f on the righthand side. The 
problem is that y* is as yet unknown, so we can’t use it on the righthand side of 
equ. (11). But we could use Euler to estimate (predict) y* from equ. (7) and then use 
equ. (11) to correct the prediction by computing a better version of y*, say y*. So the 
full procedure is: 


1. Repeat as many times as required: 
1.1 Use Euler to predict: 
ny PR, 
1.2 Then correct y* as follows: 
yr =yt Alfa +h, y*) + fe, y)\/2 
1.3 Replace y by y*. 


This is called a predictor-corrector method. It can be applied to the bacteria growth 
problem as follows, and only requires one extra line in the computer program: 


1. Repeat for t = 0.5 to 10.0: 
1.1 N* = N+ /rAN (predictor, as before) 
1.2 N* =N-+rh(N* + N)/2 (corrector) 
1.3 Replace N by N*. 


The results with this method are also shown in Table 15-5. The worst error is now only 
15%. This is much better than the uncorrected Euler algorithm, although there is still 
much room for improvement. 


962 CHAPTER 15 
15.5. Runge-Kutta Methods 


There are a variety of algorithms, under the general name of Runge-Kutta, of varying 
degrees of accuracy, which can be used to integrate almost any system of ordinary 
differential equations. The fourth-order formula is given below, for reference. A 
derivation of this and the other Runge-Kutta formulae can be found in most books on 


numerical analysis. 


Runge-Kutta Fourth-Order Formulae 


The general differential equation is 

dy/dx = f(x, y), y(Q) given. (*) 
The fourth-order Runge-Kutta estimate y* at x = / is given by 

yt =yt (ky + 2ko + 2k3 + ky)/6, 

where 

ky = hf(x, y) 

ky = hf(x + 0.5h, y + 0.5k}) 

k3 = hf(x + 0.5h, y + 0.5k2) 

ky =hfx +h, y + ks). 


A Predator-Prey Model 


The Runge-Kutta formulae may be adapted to integrate systems of first-order differ- 
ential equations. Here we adapt the fourth-order formulae to integrate the well-known 
Lotka-Volterra predator-prey model: 


dx/dt = px — qxy (= f(x, y) ) 
dy/dt = rxy — sy (= g(x, y) ), 
where x(t) and y(t) are the prey and predator population sizes at time f, and p, g, rand 


s are biologically determined parameters. In this case, the values of x and y at some time 
t may be used to find x* and y* at time (t+h) with the formulae 


xt =x + (ky + 2k2 + 2k3 + ky)/6 
y* =y + (m, + 2m + 23 + m4)/6 
where 

Kk, = hf(x, y) 

hg(x, y) 

hf(x + 0.5k;, y + 0.5m) 
hg(x + 0.5k1, y + 0.5m) 


| 


5 
| 
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k3 


I713 


hf(x + 0.5k2, y + 0.5mz2) 
hge(x + 0.5k2, y + 0.5mz) 
ky = hf(x + ks, y + ms) 
ms = he(x + k3, y + m3) 


It should be noted that in this example x and y are the dependent variables, and t (which 
does not appear explicitly in the equations) is the independent variable, whereas in the 
general formula (*) quoted above, y is the dependent variable, and x is the independent 
variable. 


Driver Program to Solve Differential Equations 


We conclude this book with an example of interactive modelling with True BASIC. The 
Driver program in this section is a very much simplified version of a general model 
driving program (Furniss, 1977). Its basis is a fourth-order Runge-Kutta-Merson 
procedure (which differs slightly from the one given in the previous section) to integrate 
a general system of first-order differential equations. The example used here is the 
predator—model of the previous section, with x(0) = 105, y(0) = 8, p = 0.4, g = 0.04, 
r = 0.02, and s = 2. The elements X(1) and X(2) of the array X are used for the state 
variables x and y, and the righthand sides of the model equations, f and g, are stored in 
the elements F(1) and F(2) of the array F. There is no limit to the number of state 
variables that can be handled by the program. 


Driver allows you to start integrating from the initial conditions, or from the current 
values. You can display the results in table form, or in the form of phase plane 
trajectories (a graph of x(t) against y(t)). You can change the values of the integration 
step-lengih, the total running time, and the output intervals (in multiples of the 
step-length) while the program is running. The sample output below shows the initial 
run with the data as given. 


The program could be extended into a very useful modelling tool in the following ways. 
The data can be kept as packed strings in a record file which is read at the start of each 
session. The menu can be extended to allow changes to the parameters, which can also 
have string names, like the variables, and to the initial conditions. Screen output can be 
optionally echoed to a text file, for viewing or printing at a later stage. All changes to 
parameters and initial conditions can also be echoed to this text file. Plots of variables 
against time can be arranged. The present phase plane analysis can be extended to allow 
any variable to be plotted against any other by using a linked list, the two elements of 
which are the subscripts of the two state variables to be plotted against each other. 
Information such as the step-length, runtime and output interval can also be stored in 
the data file. The latest graphics screen can be written to a byte file for viewing and 
reading at a later stage (see section 12.2). Finally, at the end of the session there can be 
an option to rewrite the data file in order to save all current values. 


Driver program for interactive modelling 
[Arrays will be redimensioned after reading data 


DIM F(1) IRHS of differential equations 
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DIM InVals(1) Initial values of state variables 
DIM Name$(1) INames of state variables 
DIM Params(1) ‘The parameters 
DIM X(1) 'The state variables 
READ NVar, NPar, tO INo of variables, parameters, start time 
MAT READ InVals(NVar) Initial values 
MAT READ Name$(NVAR) INames of variables 
MAT X = InVals Initialize first time (and redimension) 
MAT F = Zer(NVar) [Redimension F 
MAT READ Params(NPar) [Parameters 
READ dt, RunTime, Invi [Run specifications 
READ Xmin, Xmax, Ymin, Ymax (Graphics window 
DATA 2, 4, 0 INVar, NPar, tO 
DATA 105, 8 Initial values 
DATA Pred, Prey INames of variables 
DATA 0.4, 0.04, 0.02, 2 ‘Parameters 
DATA 1, 20, 1 dt, RunTime, Invi 
DATA 85, 115, 7, 13 'Window edges 
Input run specifications from key board 
DO 
CLEAR 


PRINT "Stop (S), Continue (C), or Initial (I)? ”: 
GET KEY Reply 
LET Statu$§ = UCase$( Chr$( Reply ) ) 
PRINT Statu$ 
IF Statu$ =”"C” OR Statu$ = "Il" THEN 
PRINT "Table (T) or Graph (G)?”: 
GET KEY Reply 
LET Mode$ = UCase$( Chr$( Reply ) ) 
PRINT Mode$ 
PRINT "Step-length, Runtime and Output intervals are:”; dt; RunTime; Invi 
PRINT "Do you want to change them (Y/N)? ”; 
GET KEY Reply 
LET An$ = UCase$( Chr$( Reply ) ) 


PRINT An$ 
IF An$ ="Y" THEN INPUT PROMPT "Type new values:”: dt, RunTime, Inv! 
IF Statu$ = "I" THEN [Reset initial conditions 
MAT X = InVals 
LET t = to 
END IF 
CALL Headings Initialize output 
CALL Model 'Run it 
CALL Endings 'Tidy up 
END IF 


LOOP UNTIL Statu$ ="S” 
SUB Endings 
'Tidies up after output 


IF Mode$ = "GQ" THEN 
BOX KEEP Xmin, Xmax, Ymin, Ymax IN Pic$ 
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SET CURSOR 1, 50 


PRINT "Press RETURN to continue ... 


ELSE IF Mode$ ="”T" THEN 
SET CURSOR 24, 1 


PRINT "Press RETURN to continue ... 


END IF 

GET KEY 22 

SET MODE "80" 
END SUB 


SUB Headings 
Initialize output 


IF Mode$ ="T"” THEN 


Freeze screen 
Back to text mode for menu 


Table output 


IFirst line 


CLEAR 
PRINT” Time"; 
FOR | = 1 TO NVar 
PRINT USING "#######>": NameS(I); 
NEXT | 
PRINT 
PRINT USING "###.#": t; 
FOR | = 1 TO NVar 
PRINT USING" ####.#": X(I); 
NEXT | 
PRINT 


ELSE IF Mode$ = "G" THEN 
SET MODE “Hires” 


[Graphics output 


SET WINDOW Xmin, Xmax, Ymin, Ymax 
IF Statu$ ="C” THEN BOX SHOW Pic$ AT Xmin, Ymin  '!Previous image 


PLOT Xmin, Ymin; Xmax, Ymin 
PLOT Xmin, Ymin; Xmin, Ymax 
SET CURSOR 1, 2 
PRINT Name$(2) 
SET CURSOR 24, 72 
PRINT Name$(1) 
PLOT X(1), X(2); 
END IF 
END SUB 


SUB Model 
(Generate solutions 


FOR Itime = 1 TO RunTime 
LET t = t + dt 


[Draw axes (Pic$ may be blank) 
Label y-axis 
Label x-axis 


Plot first point 


CALL Runge( F, X, NVar, Params, dt } 


IF Mod( Itime, Invi ) = 0 THEN 
IF Mode$S$ ="T” THEN 
PRINT USING "###.#": t; 
FOR | = 1 TO NVar 


[Output this time 


PRINT USING” ####.#" X(I); 


NEXT | 
PRINT 
ELSE IF Mode$ ="G" THEN 


PLOT X(1), X(2); 
END IF 
END IF 
NEXT Itime 
END SUB 
END 


INow for the external subroutines 


SUB DiffEqns( F(), X(), Params() ) 
[Set up for Predator—Prey model 


'Model equations are: dx/dt = Fl = px — aqxy 
| dy/dt = F2 = rxy — sy 
LET F(1) Params(1) * X(1) — Params(2) * X(1) * X(2) 


LET F(2) = Params(3) * X(1) * X(2) — Params(4) * X(2) 


END SUB 


SUB Runge( F(), X(), NVar, Params(), dt ) 
[4th-order Runge—Kutta—Merson 
'RHS of DEs set to F() by subroutine DiffEqns 


DIM A(1), B(1), C(1), D(1) 'Working space 

MAT A = Zer(NVar} [Redimension the working space 
MAT B = Zer(NVar} 

MAT C = Zer(NVar) 

MAT D = X Initialize D for Runge—Kutta 
LET h=dt/s 


FOR J = 170 5 
CALL Diff—qns( F, X, Params ) 
FOR | = 1 TO NVar 
SELECT CASE J 


CASE 1 
LET A(l) = h * Fil) 
LET X(I) = D(l) + AG) 

CASE 2 
LET Bil) = h * Fil) 
LET X(I) = D(l) + 0.5 * (A(I) + B())) 

CASE 3 
LET Bil) = h * Fil) 
LET X(l) = D(l) + 0.375 * (A(l) + 3 * B(I)) 

CASE 4 
LET C(l) = h * Fil) 
LET X(l) = D(l) + 1.5 * (A(I) —3 * Bil) + 4 * C())) 

CASE 5 
LET Z = Dil) 
LET D(l) = h * Fil) 
LET X(l) = Z + 0.5 * (A(l) + 4 * C(I) + D(I)) 

END SELECT 
NEXT | 
NEXT J 


END SUB 
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Sample output (initial run): 
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Time Pred Prey 
0 105.0 8.0 
1.0 110.9 9.5 
2.0 108.3 11.7 
3.0 98.7 12.6 
4.0 90.9 11.2 
5.0 90.2 9.2 
6.0 95.9 7.9 
7.0 104.6 8.0 
8.0 110.8 9.4 
9.0 108.7 11.6 
10.0 99,3 12.6 
11.0 91.2 11.4 
12.0 90.1 9.3 
13.0 95.5 8.0 
14.0 104.1 7.9 
15.0 110.6 9.3 
16.0 | 109.1 11.5 
17.0 99.8 12.6 
18.0 91.5 11.5 
19.0 89.9 9.4 
20.0 95.1 8.0 
summary 


* A numerical method is an approximate computer method for solving a mathematical 
problem which often has no analytical solution. 


* A numerical method ts subject to two distinct types of error: rounding error in the 
computer solution, and truncation error, where an infinite mathematical process, 
like taking a limit, 1s approximated by a finite process. 


EXERCISES 


Look 


13.2 


15.3 


Write down Newton’s algorithm to find the cube root of 2. Taking 1 as the starting 
value, use a calculator to do the first few iterations, and observe how fast they 
converge. 

Use Newton’s method in a program to solve some of the following (you may have 
to experiment a bit with the starting value): 

(a)x*—x=10 (two real roots) 

(b) e~* = sin(x) (infinitely many roots) 

(c) x° — 8x7 ++17x —10=0 (three real roots) 

(d) log(x) = cos(x) 

(e) x* — 5x° — 12x + 76x — 79 =0 (two real roots near 2) 

Use the Bisection method by hand to find the square root of 2, taking 1 and 2 as 
initial values of x, and xr. Continue bisecting until the maximum error 1s less than 


0.05 (use inequality (3) of section 15.1 to determine how many bisections are 
needed). 
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15.4 Write a subroutine Root( X, A, B, Acc ) which uses the Bisection method to find the 
root X of a given function f(x). A and B are the starting limits for the bisection 
(supplied by the user through the calling program) and Acc is the maximum 
acceptable error. Write a separate function F( X ) which defines f(x), and which 
must be called by Root whenever function values are needed during the 
bisections. Write a main program which uses Root to solve one of the equations 


in Ex. 15.2. 
15.5 Use the Trapezoidal rule by hand to evaluate 
4 
| Pdr, using a step-length of h = 1. 
0 


15.6 Consider the differential equation 
dx/dt=1-— x, x(0) =0. 
Use Euler’s method by hand to estimate x(1), using (a) two steps of length 
h = 0.5, and (b) four steps of length 4 = 0.25. 

15.7 Use Euler’s method by hand to evaluate the integral in Ex. 15.5 using the same 
step-length. 

15.8 A human population of 1000 at time ¢ = O grows at a rate given by 


dN/dt = aN, 

where a = 0.025 per person per year. Use Euler’s method to project the 
population over the next 30 years, working in steps of (a) 4 = 2 years, (b) /; = 1 
year and (c) A = 0.5 years. Compare your answers with the exact mathematical 
solution. 

15.9 Radio-active substance A decays into substance B at arate given by the equation 
dx/dt = —rx, 
where x is the amount of A present at time f, and r is a constant called the decay 
rate. 

(a) Solve for x as a function of ¢ (analytically). 

(b) Show that the initial amount of A present is reduced by half in time 
I’ = 0.693/r. (T is the half-life of A.) 

(c) If y is the amount of B present at time f, and if y = 0 at time t = 0, deduce 
an expression for y as a function of ¢. 

(d) Given r = 0.0033 per year, and x = 10 at time ¢ = 0, use Euler’s method to 
find x as a function of time for a period of 450 years. Work in steps of h = 
15 years, and compare your answers with the exact solution. 

15.10 Some radio-active substances decay into other radio-active substances, which in 
turn also decay. For example, Strontium 92 (r; = 0.256 per hr) decays into 
Yttrium 92 (72 = 0.127 per hr), which in turn decays into Zirconium. Write down 
a pair of differential equations for Strontium and Yttrium to describe what is 
happening. 

Starting at f = O with 5e26 atoms of Strontium 92 and none of Yttrium, use the 
Runge-Kutta formulae to solve the equations up to t = 8 hours in steps of 1/3 hr. 
Also use Euler’s method for the same problem, and compare your results. 
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15.11 Solve numerically 
dyidx=x—y, y(0) =1, 
over the domain [0; 1] using A = 0.2. 
15.12 The impala population x(t) in the Kruger National Park may be modelled by the 
equation 
dx/dt = [r — bx sin(at)]x, 


where r, b, and a are constants. Write a program which reads values for r, b, and 
a, and initial values for x and t, and which uses Euler’s method to compute the 
impala population at monthly intervals over a period of two years. 

15.13 Simpson’s rule is a method of numerical integration which is a good deal more 
accurate than the Trapezoidal rule. The step-length A must be chosen so that 
there are an even number (27) of panels. Using the notation of section 15.2, the 
formula for Simpson’s rule is 


n—] n 
(h/3)[f(a) + f(b) + 2 E fxr) + 4 flxr-r)] 
i=1 i=1 
Write a subroutine to implement this formula. Try it out on the function f(x) = x° 


between any limits. You may find your answers surprising when you compare them with 
the exact mathematical solution. 


The luminous efficiency (ratio of the energy in the visible spectrum to the total energy) 


of a black body radiator may be expressed as a percentage by the formula (McCracke+ 
and Dorn, 1964) 


/e—-S 


k= 64.777 | P(e soars = de: 
4e-—5 


where T is the absolute temperature in degrees Kelvin, x is the wavelength in cm, an 
the range of integration is over the visible spectrum. Taking T = 3500°K, use Simpson’s 
rule to compute E, firstly with 10 intervals (mn = 5), and then with 20 intervals (n = 10), 
and compare your results. 


Van der Pol’s equation is a second-order non-linear differential equation which may be 
expressed as two first-order equations as follows: 


dx,/dt — 
dx2/dt = a(1 — x17)x2 — b°xy. 


The solution of this equation has a stable limit cycle, which means that if you plot the 
phase trajectory of the solution (the plot of x; against x2) starting at any point in the 
positive x;-x2 plane, it always moves continuously into the same closed loop. Use the 
Runge-Kutta method to solve this system numerically, with h = 0.1, x,(0) = 0, and 
x2(0) = 1. Plot the phase trajectory for b = 1 and a ranging between 0.01 and 1.0. 


= * = 
a Sr —— = 
— = = 


EPILOGUE 


PROGRAMMING STYLE 


Throughout this book the emphasis has been on writing clear, coherent programs to 
solve interesting problems. A program which is written any old how, although it may do 
what is required, is going to be difficult to understand when you go through it again after 
a month or two. Serious programmers therefore pay a fair amount of attention to what 
is called programming style, in order to make their programs clearer and more readable 
both to themselves, and to other potential users. You may find this irritating, if you are 
Starting to program for the first time, because you are naturally impatient to get on with 
the job. But a little extra attention to your program layout will pay enormous dividends 
in the long run, especially when it comes to debugging. 


Some hints on how to improve your programming style are given below: 


Ls 


I 


You should make liberal use of comment lines, and comments at the end of program 
lines, both at the beginning of program units, to describe briefly what the program 
does and any special methods that have been used (e.g. Euler’s method for 
numerical integration), and also throughout the program to introduce different 
logical sections. Any restrictions on the size and type of data that may be used as 
input should be stated clearly in the comments (e.g. maximum sizes of arrays). 


. The function of each variable should be described briefly in comments at the 


beginning of the program, in alphabetical order of the variables. 


. Blank lines should be freely used to separate sections of coding (e.g. before and after 


loop structures). 


. Coding inside structures (loops, decisions, subroutines, functions) should be in- 


dented a few columns to make the logic more apparent. The DO FORMAT command 
may be used to indent the structures for you. It also converts all keywords inte 
uppercase, and lines up the comments. 


. Blanks should be used in statements in the following places: 


* on either side of arithmetic or logical operators; 
* on either side of the equal sign in assignment statements; 
* after all punctuation marks (commas, colons, semi-colons). 


However, blanks may be omitted in places in complex expressions, where this m4, 
make the structure clearer. 


. It is strongly recommended that the EXIT DO, EXIT FOR, GOTO and GOSUB 


statements never be used, under any circumstances. 


. Subroutines, functions and pictures should be arranged after the main program in 


alphabetical order with at least one blank line between them. The EXIT DEF, EXIT 
PICTURE and EXIT SUB statements should only be used in recursive subroutines and 
functions, and then with care. 
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A.1. Commands 


All commands may be abbreviated down to their first three letters, e.g. REP, or REPL 
for REPLACE, but not REPLY. 


block may be a line number, range of line numbers, routine name, or marked lines. 


text may be any word or number in your file, or any characters enclosed in double 
quotes. 


Items in angle brackets (‘“<>’’) after a command are optional. The angle brackets must 
not be typed. 


The output of all commands can be echoed to the printer by following the command 
with “>>”, or to a file with “>>filename’’. 


ALIAS <{aliasname} <, dirname> > 

BREAK <block> 

BYE 

CD dirname 

CHANGE old, new where old, new are text 
COMPILE 

CONTINUE 

COPY from, to where from, to are blocks 
DELETE <block> 

DO filename 

DO FORMAT 

DO NUM 

DO PAGE 

DO RENUM 

DO TRACE, option (variables) 

DO UNNUM 

DO XREF <, filename> 

ECHO <OFF> 

ECHO <TO filename> 

EDIT <block> 

ENTER dirname 

FILES <dirname><,LEN> 
FILES <template> wnere tempiate is any file spec allowed by MS-DOS 
FORGET 

HELP <topic> 
INCLUDE filename 
INFO 

KEEP <block> 

KEY 

KEY FROM filename 
KEY TO filename 
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LIST <block> 

LOAD libraryl, library2, ... 
LOCATE text 

MARK <block> 

MODE name 

MOVE <block> 

NEW <filename> 

NOLET 

OLD filename 

RENAME newname 

RENAME oldname, newname 
REPLACE <filename> 

RUN 

SAVE <filename> 

SCRIPT filename<, arguments> 


where name must be an IBM PC mode 


SPLIT 

SPLIT 7 where n must be in the range 0 to 24 (IBM PC only) 
TO 

TRY old, new where old, new are text 

UNSAVE filename 


A.2. Cursor Movement Keys 


Left one character 


— 

> Right one character (to end of line only) 
f Up one line 

J Down one line 

Home Start of current window 

End End of current window 

PgUp Up one page in current window 

PgDn Down one page in current window 

Tab Next word or number 

Shift-Tab Previous word or number 

Shift-F1 Vertical tab up 

Shift-F2 Vertical tab down 

Shift-F3 Find bookmark 

Shift-F4 Set bookmark 

Ctrl- — Start of current line 

Ctrl- —> End of current line 

Space Bar Right one character (past end of line) 


Cursor movements may be also defined for other keys (or combinations of keys) with 
the KEY command. 
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A.3. Editing Keys 


Backspace Delete previous character 
On a line tag: join current line to previous line 


Del Delete current character 
On a line tag: delete current line 


Ctrl-Home Delete previous word 

Ctrl-PgUp Delete current word 

Esc Delete from cursor to start of line 

Ctrl-End Delete from cursor to end of line 

< On aline tag: move current line (or marked block) one space to the left 

> On a line tag: move current line (or marked block) one space to the 
right 

Ins Switch from inserting to overtyping, or vice versa 


On a line tag: insert (or remove) exclamation mark(s) in current line 
(or marked block) 


A.4. Formatting Characters 


Leading Characters 


+ print number with leading "+" or "—" 
— print number with leading space or "—" 
$ print number with leading "$” 


Digit Characters 


* print leading zeros as "*” 
% print leading zeros as "0" 


# print leading zeros as spaces 


(Digit characters may be mixed in a format item, but only on different sides of the 
decimal point.) 


Other Characters 


, insert comma here 

align decimal point here 
print exponent field 

< __left-justify string output 
>  fright-justify string output 
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A.5. Function Keys 


Fl Editing window F2 History window 


F3 FIND F4 MARK 

F5 COPY Fo MOVE 

F7 RESTORE (undelete) F8 BREAKPOINT 
F9 RUN F10 HELP 


F2 After error message: get next error message 


F5 In history window: copy current line to command line 
On command line: copy previous entry to command line 


A.6. Special Key Combinations 


Ctrl-Alt-Del Reboot system 
Ctrl-NumLock Suspend execution (press any key to continue) 
Ctrl-Scroll Lock Terminate execution 

Ctrl-Break 


A./. Statements 


Items in angle brackets (‘“<>”’) are optional. The brackets must not be typed. 


ALIAS {aliasname}, dirname 
ASK #expr: ACCESS var$ 
ASK #expr: FILESIZE var 


'var$ = INPUT, OUTPUT, or OUTIN 

Isize in bytes for text and byte files; in records for 

record files 

ASK #expr: MARGIN var [var = zero for record and byte files 

ASK #expr: NAME var$ 

ASK #expr: ORG<ANIZATION> var$ — !var$ = BYTE, RECORD, TEXT or WINDOW 
POINTER var$ lvar$ = BEGIN, MIDDLE or END 


ASK #expr: 
ASK #expr: RECORD var position in bytes for text and byte files; in records 
for record files 


ASK #expr: RECSIZE var ‘var = 0 for text and byte files 
ASK #expr: ZONEWIDTH var ‘var = 0 for record and byte files 


ASK BACK<GROUND COLOR> var 
ASK BACK<GROUND COLOR var$ 


ASK COLOR var<$> foreground colour 

ASK CURSOR line, column 

ASK CURSOR var$ lvar$ = "on" or "off" 

ASK DIRECTORY var$ 

ASK FREE MEMORY var lunused bytes in memory 


ASK MARGIN var 

ASK MAX COLOR var 

ASK MAX CURSOR lJ/ine, column 

ASK MODE var$ IBM PC only 
ASK NAME var$ 

ASK PIXELS xwidth, ywidth 
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ASK 
ASK 
ASK 
ASK 


BOX 
BOX 
BOX 
BOX 
BOX 
BOX 
BOX 
BOX 
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SCREEN left, right, bottom, top 
TEXT JUSTIFY horiz$, vertS 
WINDOW left, right, bottom, top 
ZONEWIDTH var 


AREA left, right, bottom, top 

CIRCLE left, right, bottom, top 

CLEAR left, right, bottom, top 

ELLIPSE left, right, bottom, top !same as BOX CIRCLE 
KEEP left, right, bottom, top \N var$ 

LINES left, right, bottom, top 

SHOW var$ AT left, bottom <USING expr> 

SHOW var$ AT left, bottom <USING const$> 


CALL Subr<( exprl, expr2$, #1, #2, ... )> 
CAUSE ERROR expr <, expr$> 

CHAIN expr$ <WITH (arg$)> <,RETURN> 
CLEAR 

CLOSE #expr 


DATA constl, const2$, ... 
DECLARE DEF Funcl, Func2$, ... 
DECLARE PUBLIC var, var$, array(), array3(,), ... 


DEF Func<( varl, var2$, ... )> = expr 
DEF Func$S<( varl, var2$, ... )> = expr$ 
DEF Func<( varl, var2$, ... )> lor Func$ 


LET Func = expr 


END 


lor LET Func$ = expr$ 
DEF 


DIM array( upperl, lower2 TO upper2, lower3:upper3, ... ) 


DO 


block of statements lendless 


LOOP 


DO WHILE condition 


condition to repeat 
block of statements 


LOOP 


DO 


oo # 


LOOP UNTIL condition 
DO WHILE condition! 


block of statements 
condition to stop 


Inot recommended 
block of statements 


LOOP UNTIL condition2 


DRAW Pic<( exprl, expr2$, ... )> 
DRAW Pic<(exprl, ... )> WITH Transl <* Trans2 ...> 


END 

ERASE #expr 

EXIT DEF recommended only with recursion 
EXIT DO Inot recommended 
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EXIT FOR Inot recommended 

EXIT HANDLER 

EXIT PICTURE lrecommended only with recursion 
EXIT SUB lrecommended only with recursion 
FLOOD x, y 


FOR var = first TO last STEP incr 
... block of statements 
NEXT var 
GET KEY var 
GET MOUSE: x, y, State 
GET POINT: x, y 
IF condition THEN statement] <ELSE statement2> 


IF condition! THEN 


... block] 
ELSE< >IF condition2 THEN lany number of ELSE< >IFs 
... block2 
ELSE Zero or One ELSE 
... blockE 
END IF lmust be two words 
INPUT varl, var2$, ... <,> Imay have trailing comma if more items 
INPUT #expr: varl, var2$, ... text file 


INPUT PROMPT expr$: varl, var2$, ... 


LET varl <, var2, ...> = expr 
LET varl$ <, var2$, ...> = expr$ 
LET var$[i:/] = expr$ 


LIBRARY "filename", "filename2", Inames must be constants 
LINE INPUT varl$, var2$, ... lonly strings 
LINE INPUT #expr: varl$, var2$, ... lonly strings 


LINE INPUT PROMPT expr$: varl$, var2$, ... !only strings 
LOCAL varl<$>, array!<$>( dimensions ), ... 'use with OPTION TYPO 


MAT array = var levery element set to var 
MAT array = (expr) levery element set to expr 
MAT arrayl = array2 Imay be built-in array value 
MAT arrayl = (expr) * array2 

MAT arrayl = array2 op array3 lop may be +, — or * 

MAT INPUT array(?) lredimensions a 1-dim array 


MAT INPUT <PROMPT expr$:>arrayl, array2, ... 

MAT LINE INPUT <PROMPT expr$:>arrayl, array2, ... 
MAT PLOT AREA: array 

MAT PLOT LINES: array 

MAT PLOT POINTS: array 

MAT PRINT arrayl, array2; ...<,> 

MAT PRINT arrayl; array2, ... <;> 

MAT PRINT #expr: arrayl, array2; ... 

MAT PRINT USING format$: arrayl, array2, ... 

MAT PRINT #expr, USING format$: arrayl, array2, ... 
MAT READ arrayl, array2, ... 
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MAT READ arrayl( upperl ), array2( lower2: upper2 ), ... 
MAT REDIM array<$> exprl, expr2, ... ) 


(MAT may precede any <LINE> INPUT, PRINT, READ or WRITE 


MODULE Modnm 
... block of statements 
END MODULE 


OPEN #expr: NAME expr$, ACCESS expr$, CREATE expr$, ... 
... ORG<ANIZATION> expr$, RECSIZE var 


statement.) 


Only the NAME part is mandatory. The possible Strings are: 


Option String Meaning 

ACCESS INPUT Read only 
OUTPUT Write only 
OUTIN 


Read and/or write (default) 
CREATE NEW Create new file 
OLD Use existing file (default) 


NEWOLD Use existing file or create new one 
ORG<ANIZATION> TEXT Text file 
RECORD Record file 
BYTE Byte file 


The strings may be constants or expressions. If they are constants. they may be written 
without quotes. 


OPEN #expr: PRINTER IPRINT #expr: 
OPEN #expr: SCREEN left, right, bottom, top 

OPTION ANGLE DEGREES 
OPTION ANGLE RADIANS 
OPTION BASE const 
OPTION NOLET 

OPTION TYPO 


PAUSE expr 


"This is on the printer” 


lower bounds of all arrays 


luse with LOCAL 


pause in seconds 
PICTURE Pic<( var<$>, array(,), ... )> 

... block of statements 
END PICTURE 


PLAY exprd Imusic 
PLOT x, yj> 

PLOT xl, yl; x2, y2; ... 

PLOT AREA: xl, yl; x2, y2; ... 
PLOT LINES: xl, yl; x2, y2; ... 
PLOT POINTS: xl, yl; x2, y2; ... 
PLOT TEXT, AT x, y: expr$ 
PRINT exprl, expr2$; ...<,> 
PRINT exprl; expr2$, ...<;> 
PRINT #expr: exprl, expr2$; ... text file (same as PRINT) 
PRINT #expr, USING format$: expr<$>, ...<;>!text file 

PRINT USING format$: expr<$>, ... <;>  !no semi-colons except at end 


‘semi-colon joins by line to previous point 
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PRIVATE function, subroutine, picture, . 


PROGRAM name loptional 
PROGRAM name( var$ ) lonly when chaining with argument 
PUBLIC varl<$>, arrayl<$>( dimensions ), ... 
RANDOMIZE 
READ varl, var2$, ... 
READ #expr: varl, var2§, ... lrecord file 
READ #expr: varl$, var2$, ... byte and record file 
READ #expr, BYTES exprl: varl$, var2$,... — |byte file 
RESET #expr: BEGIN short for SET POINTER 
RESET #expr: END short for SET POINTER 
RESET #expr: NEXT Ishort for SET POINTER 
RESET #expr: RECORD exprl 
RESET #expr: SAME short for SET POINTER 
RESTORE 
SELECT CASE expr 
CASE ftestl, test2, ... Itest may be: 
... blockl constant 
CASE test3, test4, ... | low TO high 
... block2 | IS op constant 
CASE ELSE 
... blockE 
END SELECT 


(There may be any number of CASE olocks, and any number of tests. There may be zero 
or one CASE ELSE. If CASE SELECT is needed but missing, an error message 1s 
generated. ) 

SET #expr: MARGIN expr/ text file 

SET #expr: POINTER BEGIN 


SET #expr: POINTER END 
SET #expr: POINTER NEXT 


SET #expr: POINTER SAME lrecord file 

SET #expr: RECORD expr/ record file 

SET #expr: RECSIZE expr/ byte and record file 
SET #expr: ZONEWIDTH exprl Itext file 


SET BACK<GROUND COLOR> expr<$> 
SET COLOR expr<$> 

SET COLOR MIX (colour), red, green, blue lIEGA only 

SET CURSOR expr$ lexpr$ may be "on” or “off” 
SET CURSOR /ine, column for current window 

SET DIRECTORY expr$ 

SET MARGIN expr 

SET MODE expr$ IBM PC only 

SET NAME expr$ 

SET TEXT JUSTIFY horiz$, vert$ 

SET WINDOW left, right, bottom, top 

SET ZONEWIDTH expr 

SHARE varl<$>, arrayl<$>( dimensions ), #const, ... 

SOUND freq, time lHertz, seconds 

STOP 
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SUB Subr<( varl<$>, arrayl(), array2(,), .... #const )> 
... block of statements 
END SUB 


UNSAVE expr$ lexpr$ must be a filename 


WHEN ERROR IN 
... protected block 
USE 
... error handler 
END WHEN 


WINDOW #expr 
WRITE #expr: exprl<$>, expr2<$>, ... lrecord files only 
WRITE #expr: expr1$, expr2$, ... lrecord and byte files 
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TRUE BASIC COMMANDS 


B.1. General 


Commands are issued in the history window, in response to the prompt Ok. Commands 
may be abbreviated down to their first three letters (i.e. COM or COMP for COMPILE, 
but not COMPUTE). 


More than one command can be typed on a line, separated by semi-colons: 
Ok. OLD prog; RUN 


The output of all commands can be echoed to the printer by following the command 
with ‘“>>’’, or to a file with “>> filename’. 


Many commands operate on blocks of lines. A block of lines may be a single numbered 
line, a group of numbered lines, a function, a subroutine, or a picture. If you have ne’ 
numbered the lines, they are assumed to be numbered 1, 2, ... , e.g. 


Ok. DEL 3-20; DEL Plonk 
deletes lines 3 to 20 inclusive, and the routine Plonk. 


Furthermore, a block of lines may be marked with the MARK command, or with the . 
function key (place the cursor on the line tag of the first line in the block to be marked, 
press F4, move the cursor to the last line in the block to be marked, and press F4 again). 


The following True BASIC statements can be used as commands at any stage in a 
session: 


ASK BOX CLEAR GET INPUT LET 
LINE INPUT PAUSE PLAY PLOT PRINT 
SET SOUND 


The following statements can be used as commands after running an uncompiled 
program: 


CALL CLOSE DRAW ERASE MAT OPEN 
READ RESET RESTORE WINDOW  WARITE 


If an uncompiled program has been run, the program’s variables are still active 
immediately afterward. This is very useful for debugging. If a program has external 
functions, subroutines or pictures, only the variables in the program unit where the 
program stopped remain active. 


Variables remain active until one of the following commands are issued (breakpoints 
are also discarded): 


BYE COMPILE DO NEW OLD RUN 
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B.2. Summary of Commands 


ALIAS 

enables you to substitute a name of your choice for a file or path that True BASIC needs 
to access. The general form 1s 

ALIAS aliasname, dirname 

E.g. True BASIC usually looks for the help files in the directory ““\T[BHELP\” in the 
current drive. Let’s assume the current drive is A. There may not be room for all the 
help files in the current drive, and you may wish to save them under the directory 
‘\TB\HELPY\’ in drive B. The command 

ALIAS {HELP}, B:\TB\HELP\ 

will tell True BASIC where to look for the help files. Don’t forget the trailing backslash 
in the directory name. 

You can also give a list of “search paths” instead of a single name, and True BASIC will 
try each of them in turn until it finds one that works. E.g. after 

ALIAS {DO}, "",\TBDO\ 

True BASIC will first search the current directory for DO programs, and failing that, the 
directory “\TBDOV”. Such a list of search paths must include the current directory (“‘ ’’) 
if you ever want to give the full path name in a command. 

Other forms of the command are: 


ALIAS displays current aliases 
ALIAS {aliasname} allows editing of aliasname 


\n alias can also be created in a program. Suppose you don’t know which drive a file 
will be on when the program executes. The statements 


ALIAS {AB}, A:, B: 
OPEN #1: NAME {AB} PLONK” 


will ensure that True BASIC looks for the file ‘“‘PLONK’”’ on both drives. 


BREAK 

puts breakpoints into a program, and is useful when debugging. It has the forms 
BREAK © breakpoint at first (marked) line 
BREAK block breakpoint at first line in block 


On most computers a breakpointed line is indicated in some way in the editing window. 


When you run the program, True BASIC suspends execution immediately before 
executing the breakpointed statement. Execution may be resumed with the CONTINUE 
command (you may change active variables before continuing if you want to), e.g. 


LET A = 1 
LET B = 2 
PRINT B 


END 
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Ok. BREAK 3 
Ok. RUN 


Breakpoint line 3 is not executed yet 
Ok. PRINT A; B 


1 2 
Ok. LET B = 17 
Ok. CONTINUE 
17 now it is 
Ok. 
To remove a breakpoint, BREAK that line again. If the lines aren’t numbered, and you 
can’t remember its line number, use DO NUM followed by DO RENUM (see below): 


DO NUM 
DO RENUM, 1, 1 


The function key F8 can be used instead of the BREAK command. 


BYE 


gets you out of True BASIC back to the operating system. You are asked whether or 
not you want to save the current program before leaving True BASIC. 


CD 
allows you to change diskettes and/or directories, e.g. 


CD B: 
CD B: \MYFILES 


CHANGE 
makes global changes in your program, e.g. 


Ok. CHANGE Name, name$ Only matches whole words, ignores 

23 changes made. differences between upper- and lowercase. 
Leading and trailing blanks ignored. 

Ok. CHANGE "PRINT ”, "PRINT #1:” only matches exactly what appears in quotes 

Double quotes can therefore be used to change parts of words. Strings containing 


commas or semi-colons must also be enclosed in double quotes, and double quotes 
themselves must be repeated. 


CHANGE works on the whole program, unless you’ve restricted its range by using EDIT 
or marking a block of lines, in which case it only works on the block or routine currently 
being edited. 


To make local as opposed to global changes, use TRY. 


COMPILE 


may be used to produce compiled code of a program to be saved on a diskette. When 
the current program is compiled, the source code is discarded (and should be saved or 
replaced before compiling). The compiled version may be saved or replaced. The 
default extension when a compiled program is saved is *.tre’’. 
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A compiled program can be called up with OLD, and executed with RUN (F9). 


CONTINUE 
resumes execution after a breakpoint (see BREAK). 


COPY 
copies a block of lines from one part of a program to another. In general 


COPY from, to 
places a copy of the from block immediately after the to block, e.g. 


lines 24-50 copied to after line 15 
marked block copied to after routine Plonk 
routine This copied to after That 


COPY 24-50, 15 
COPY Plonk 

COPY This, That 
Note that the from part may be omitted if it is a marked block. 


The COPY function key (F5) is a quicker way of copying with the screen editor. 


DELETE 

deletes a block of lines, e.g. 

DELETE Plonk !deletes routine Plonk 
DELETE 'deletes marked block 
DELETE 45-99 'deletes lines 45-99 


Pressing the Del key also deletes a marked block. 


The most recent deletion may be restored after the current line with the F7 key if the 
cursor is on the line tag of the current line. 


DO 

runs a ‘‘preprocessor”’ or formatting program over your current program, !.e. aprogram 
which changes the layout of the current program. There are some precompiled DO 
programs on the True BASIC diskette (see below). The True BASIC Reference Manual 
describes how you can write your own DO programs. Since DO programs sometimes 
alter the current program significantly, it is useful to be able to set or ask the name of 
the current program. This can be done with the statements 

SET NAME expr$ 

ASK NAME var$ 


DO FORMAT 
converts keywords to uppercase, indents structures and straightens out comments. 
There is a NOCAP option, which does not capitalize keywords: 


DO FORMAT, NOCAP 
DO NUM 


adds line numbers to the current program, starting at line number 100 or 1 000, 
depending on how long the program is. 
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DO PAGE 

prints the current program on the printer with page numbers, headings, etc. E.g. 

DO PAGE, Heading 

will print the current program with the title Heading, the date, time and page number 
at the top of each page. If the comma and heading are omitted, each page will have the 
title ““True BASIC”. 

DO RENUM 

changes the line numbers of the current program. The general form is 

DO RENUM, first, step 

where first is the first new line number, and step is the increment, e.g. 


DO RENUM, 1000, 10 


DO TRACE 


enables you to follow through the current program statement by statement. It is very 
useful for debugging. The general syntax is 


DO TRACE, option (variables) 


where variables is a list of variables separated by commas. The options are STEP, SLOW, 
FAST, or BREAK. The program is traced one line at a time, with the values of the list of 
variables (there can be up to eight) shown in a separate box. With FAST, the trace is very 
fast. With STEP it waits for you to press the space bar before executing the next 
instruction. You can change the speed of the trace by hitting a single key: S for SLOW, 
F for FAST, the space bar for STEP, and Q for QUIT (to stop the trace). 


The BREAK option starts a fast trace which switches to STEP when a given condition 1s 
Satisfied: 


DO TRACE, BREAK (condition, variables) 

condition may be any logical expression involving only simple variables. 

Certain procedures may be excluded from the trace with 

DO TRACE, option (variables) | (procedures) 

where procedures is the excluded list of procedure names, separated by commas. 


If you want to trace variables that occur in external procedures or are parameters of 
procedures, you must add the procedure name, followed by a colon as a prefix to the 
variable name in the trace list. E.g. in 


DO TRACE, option (A, B, Plonk:X) 


X iS a variable in the procedure Plonk. 


DO UNNUM 


strips the line numbers from the current program. 
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DO XREF 
prints a cross-referenced listing of the current program. It prints the program with line 
numbers, and a table of every variable, number and keyword used, with the lines on 


which they occur, e.g. 

DO XREF 

DO XREF, filename 

If a filename is supplied, the cross reference listing goes to that file, otherwise it is 
printed on the printer. 


ECHO 

echoes screen output to the printer or a file: 
ECHO echoes to printer 
ECHO TO filename echoes to file 
ECHO OFF turns echo off 


The output from any command can be echoed to the printer by following it with >>, or 


to a file with >>filename. 


EDIT 

may be used to restrict all editing to a particular block of lines (which may be a marked 
block). Only that block is shown on the screen, and all subsequent global editing 
changes will apply only to that block, e.g. 


Ok. EDIT Plonk edit routine Plonk only 
Now editing Plonk. 

Ik. EDIT 20-40 

Now editing 20-40. 

Jk. 


If some lines have been marked, just type EDIT: 


Ok. EDIT 
Now editing marked region. 
Ok. 


To resume editing the whole file, unmark any marked blocks (by moving the cursor 
under any marked line tag and pressing F4) and just enter EDIT: 

Ok. EDIT 

Now editing entire file. 

Ok. 

ENTER 

enables you to change diskettes and/or directories. It has the same syntax as CD. You 


can also set or ask directories from within a program with the following statements: 


SET DIRECTORY "B:MYLIBS” 
ASK DIRECTORY var$ 
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FILES 


will print a list of all True BASIC programs saved on the diskette in drive A. For drive 
B, enter FILES B:. The LENGTH option, which may be abbreviated to LEN, gives the file 
length in bytes. 


If your operating system allows filename templates, you can get more general listings, 
e.g. 


FILES B:*.* all the files in drive B (i.e. not only True BASIC programs) 
FILES *.txt all files with extension ‘“‘.txt’’ 
FILES ex?.tr? all 3-letter files starting ‘‘ex’’, with 3-letter extensions 


Starting “‘tr”’ 
FILES CH*.*,LEN 
A question mark in a filename or extension means any character can occupy that 


position, while an asterisk means any character can occupy that and all subsequent 
positions in the name or extension. 


FORGET 


clears the active variables and command window, giving you more free memory. It also 
clears the workspace of any libraries that have been loaded. 


HELP 

provides explanations of True BASIC topics: 

HELP general explanation of HELP 

HELP topics list of subjects for which help is available 
HELP subject help with subject 


The FiO function key may be used instead. 


INCLUDE 

enables you to insert a saved file on a diskette into your current program immediately 
after the current line. 

INFO 

prints information such as the current program size in lines and bytes, the current line, 
and the current directory. 

KEEP 

deletes the whole current program except the given block, e.g. 


Ok. KEEP Plonk deletes everything except the routine Plonk 
27 lines kept. 


KEEP without arguments deletes everything except a marked block. 


KEY 


may be used to re-define the keys on your keyboard. You might find some editing key 
combinations awkward, or confusing. For example, this book was written using the 
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word-processor PC-Write, in which End moves the cursor to the end of the current line. 
However, in True BASIC this usually moves the cursor to the end of the current 
window, which can be annoying when one is often switching back and forth between the 
word-processor and True BASIC. So End can be defined to have the same effect as 
Ctrl- —, as follows: 


Ok. KEY 

Key to redefine: (type End) 

Define it as: (type Ctrl- — followed by Ctrl-A) 
Ok. 


In the re-definition, printing characters are echoed on the screen, but non-printing 
characters are echoed as asterisks. Note that you must enter Ctrl-A to end the new 
definition. 

Strings of any length may be assigned to a key. For example, if you want to define Ctrl-I 
to set up an IF-THEN-ELSE structure, type: 


Ok. KEY 

Key to redefine: Ctrl-l 

Define it as: IF THEN Return ELSE Return END IF Ctrl-A 
OK, 


Now whenever you type Ctrl-I, True BASIC will create three new lines, beginning with 
IF, ELSE and END IF. 


You can change a key back to its original meaning by re-defining the key to itself. 
The re-definitions only last for the current session. They may be saved on a diskette with 
the command 

KEY TO filename 

and read back at all subsequent sessions with 

KEY FROM filename 


Alternatively, this command can be saved in the “‘startup” script file for automatic 
implementation at the start of a session (see SCRIPT). 


LIST 


can be used to print a hard-copy of the current program on a printer. LIST will print the 
whole file, or a marked block. A portion of the program can be listed: 


Ok. LIST 1-100 
100 lines listed. 
Ok. LIST Plonk List routine Plonk only 
17 lines listed. 


LOCATE 


can be used to find and print all lines containing the given text. It matches text in the 
same way as CHANGE, 1.e. by default it only matches whole words, and ignores the 
distinction between upper- and lowercase. Parts of words will be matched if double 
quotes are used, in which case the distinction between upper- and lowercase is 
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preserved. Double quotes must be used when looking for double quotes themselves, 
and for semi-colons, e.g. 


Ok. LOCATE | 
FOR | = 1 TO 20 
PRINT | 
NEXT | 
Ok. LOCATE “i” 
print x 
plot lines: x1, y1; x2; y2 
Ok. LOCATE """" locates all double quotes 
print "hi there” 
let x} ="Now is the hour’ 


LOCATE searches the entire file unless you have restricted editing to some part of it with 
EDIT. 


LOAD 
loads a library into the workspace, e.g. 
LOAD libraryl, library2, ... 


See Chapter 11 for a full description. 


MARK 


enables you to specify a block of lines for future editing. A marked block can be moved, 


copied, listed or deleted with those commands, or using the functions key with the 
screen editor. E.g. 


Ok. MARIX 20-200 
25 lines marked. 
Ok. MARK Plonk mark routine Plonk 
17 lines marked. 


The line tags of a marked block are highlighted. ‘To unmark a block simply mark a new 
block. Note that on some computers the line tags on the previously marked block will 
still appear highlighted, although the block will no longer be marked. 


MOVE 


moves a block of lines from one part of a program to another: 


Ok. MOVE 1-30, 100 lines 1 to 30 inclusive moved to 

10 lines moved. immediately after line 100 

Ok. MOVE 90 marked block moved to after line 90 
17 lines moved. 

Ok. MOVE This, That routine This now follows That 


23 lines moved. 

Ok. MOVE Plonk 

29 lines moved. marked block moved to after Plonk 

Ok. MOVE 

13 lines moved. marked block moved to end of program 


29? APPENDIX B 





MODE 
allows you to change modes on the IBM PC, e.g. 


MODE 80 


NEW 

discards the current program. It can also be used to name the current program: 

NEW B:Ex1 

Subsequent SAVE or REPLACE commands without filenames will then apply to 


ei? 


“B:Exl1’’. The default extension is ‘‘.tru’’. 


NOLET 
allows you to omit the keyword LET from all assignment statements for the rest of the 
session. There is also a program statement. 


OPTION NOLET 
which has the same effect, although only throughout the program in which it occurs. 


OLD 
calls a saved program from a diskette and reads it into memory, e.g. 


OLD b:Ex1 


The default extension 1s ‘‘.tru’’. 


RENAME 

changes a file’s name. It has two forms: 
RENAME newname 

RENAME o/dname, newname 


The first version changes the current filename, but doesn’t affect any diskette files. The 
second version changes the name of a diskette file without affecting the name of the 


current file. 


REPLACE 
overwrites the named diskette file with the current program, e.g. 


Ok. REPLACE B:Ex1 

29 lines saved. 

The default extension ts **.tru’’. If the filename is omitted, the current program name 
Is assumed. If the file does not exist, True BASIC asks whether you want to create it. 


RUN 

executes the current program. If there are errors, the first error message is displayed. 
Up to four more error messages may be displayed from the same run by pressing F2. 
Execution may be suspended by pressing Ctrl-NumLock and terminated by pressing 
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Ctrl-Break (Scroll Lock). Output is echoed to the printer with 
RUN >> 


SAVE 


has the same effect as REPLACE, except that True BASIC will ask you whether or not 
you want to overwrite an existing file. 


SCRIPT 


lets you execute “‘script files’’, which are text files containing True BASIC commands. 
The format 1s 


SCRIPT filename 
For example, a small script file could be: 


OLD PROG 
CHANGE FILE1, FILE2 
RUN >> 


If input is required, it must be supplied on a line beginning with a question mark: 


OLD PROG 

CHANGE FILE1, FILE2 
? 123, 456 

RUN >> 


Arguments can be passed to script files, in much the same way as arguments can be 
passed to procedures. Suppose the script file ““PLONK” has the form 


OLD <i> 
CHANGE old, new 
SAVE <2> 


(where the angle brackets must be typed literally). It can be executed by typing: 
SCRIPT PLONK, FILE1, FILE2 


True BASIC will replace <1> and <2> inthe script file with the names ‘““FILE1”’ and 
“FILE2”. 


When you start True BASIC it always looks for a file in the current directory called 
“STARTUP.TRU”. If it finds one, it executes it as a script file, in the same way as 
MS-DOS executes the file ““AUTOEXEC.BAT”. For example, you might have saved 
some convenient key re-definitions in the file “KEYFILE.TRU”’. These can be 
implemented automatically on starting a session if “STARTUP.TRU” contains the line 


KEY FROM KEYFILE.TRU 


SPLIT 

divides the IBM PC screen into the editing and history window: 
SPLIT n divides at line n (0 — 24) 

The default split is at line 18. 
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SPLIT without an argument switches the banner explaining the function keys on or off. 


TO 
moves the cursor to a block or particular line, e.g. 


TO 23 
TO Plonk 


TRY 

enables you to make global changes in a program, but asks you first whether you want 
to change a particular occurrence. Text is matched in the same way as in CHANGE and 
LOCATE. Every time a match 1s found, it is highlighted in the program and you are asked 
if you want that match changed. You can reply “‘y”’ for ‘tyes’, ‘‘n” for ‘“‘no”’ or “‘q”’ for 
“quit’’ (stop searching). Pressing Return means “‘yes”’, e.g. 


Ok. TRY "PRINT ”, "PRINT #1:” 
Change? yes 

Change? n 

Change? y 

Change? Q 

2 changes made. 


UNSAVE 
deletes irrevocably a file on a diskette, e.g. 
UNSAVE B:Ext1 


The default extension is ‘‘.tru’’. 


APPENDIX C 


SUMMARY OF BUILT-IN 
FUNCTIONS 


In addition to the built-in functions in this appendix, which are part of the True BASIC 
language, there are several library files on the True BASIC diskette with mathematical 
and graphics functions and subroutines. These are listed in Appendix F. 


Arguments are all numeric or string expressions, indicated in the usual way, unless 
otherwise stated. 


C.1. Scalar Functions 


These functions all return simple numeric values. 


By default, all angles returned by and passed as parameters to the trigonometric 
functions are in radians. To measure all angles in degrees, the OPTION ANGLE 
DEGREES statement must appear before any of the trigonometric functions are used. 
The OPTION ANGLE RADIANS statement makes sure that all angles are measured in 
radians. The Deg and Rad functions are exceptions to this rule. 


ABS( X ) 


returns the absolute value of X. 


ANGLE( X, Y ) 

returns the counterclockwise angle 6 between the positive X-axis and the point (X; Y) 
such that —z7 <6 <n. 

ATN( X ) 


returns the arctangent of X, i.e. the angle between —x and x whose tangent Is X. 


COS( X ) 
returns the cosine of X. 


CPOS( A$, C$ ) 
returns the position of the first occurrence in A$ of any character in the string C$. 


CPOSR( A$, C3 ) 
returns the position of the last occurrence in A$ of any character in the string C$. 


DATE 

returns the current date as a number coded in the form YYDDD, where the first two 
digits give the year, and the last three digits the day in the year. Try it out on today’s date 
if you don’t follow! 
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DEG( X ) 


returns X radians converted to degrees (X is always taken in radians, even after an 
OPTION ANGLE DEGREES statement). 


DET 
returns the determinant of the last matrix inverted by the Inv function (see below). If no 
matrix has been inverted, Det returns zero. 


DET( A ) 
returns the determinant of the square matrix A. If A is singular, Det returns zero. 


DIVIDE( X, Y, Q, R ) 


divides X by Y, returning the quotient Q and remainder R. X and Y need not be 
integers. Divide 1s actually a subroutine, so it must be invoked with a CALL statement. 


DOT( U, V ) 
returns the dot (scalar) product of the two vectors U and V, which must have the same 
number of elements. 


EPS( X ) 

returns the smallest number that can be added to or subtracted from X on your 
computer so that the result differs from X. E.g. Eps( 1) on an Olivetti M24 returns 
2.22045e—16 which Is the accuracy of arithmetic on that computer with numbers around 
this order of magnitude. Eps( 0 ) gives the smallest positive number that True BASIC 
can handle on your computer. On the IBM PC it 1s 5.56268e—308. 


EXP( X ) 


returns the exponential of X, i.e. e%. 


EXTYPE 


returns the error number of the most recent error, as follows: 


(): no error yet 

1 to 999: available for user 

1 OOO and over: True BASIC error messages 
FP( X ) 


returns the fractional part of X. 


INT( X ) 
returns the greatest integer less than or equal to X, e.g. 


Ok. PRINT Int( —3.14 ); Int( 4.99 ) 
=—4 4 
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IP( X ) 


returns the integer part of X. So if X is positive, it returns Int( X ), otherwise 


it returns 
—Int( X ). 


LBOUND( A ) 
returns the lower bound of the one-dimensional array A. 


LBOUND( A, N ) 

returns the lower bound of the Nth dimension of the array A. 
LEN( A$ ) 

returns the number of characters (bytes) in A$, e.g. 


Ok. PRINT Len(” hi ” ) 
4 


LOG( X ) 

returns the natural logarithm of X, i.e. log.(X). 
LOG2( X ) 

returns the logarithm of X to the base 2. 
LOG10( X 

returns the logarithm of X to the base 10. 
MAX( 2, Y ) 

returns the maximum of its two arguments. 
MAXNU 1! 


returns the largest positive number your computer can handle. On the IBM PC it is 
1.79769e+-308. 


MIN( X, Y ) 
returns the minimum of its two arguments. 
MOD( X, Y ) 


returns ‘‘X modulo Y’’. Roughly speaking, this is the remainder when X is divided X by 
Y. More formally, Mod( X, Y ) is defined as 


X-Y * Inti X/Y) 
so that the result is always between 0 and y. E.g¢. 


Ok. PRINT Mod(8, 3); Mod(8, 2); Mod(—1, 3); Mod(7, —3); Mod(1.5, 1) 
F062 = 25 


NCPOSR( A$, C$ ) 
returns the position of the first occurrence in A$ of any character not in the string C$. 
NCPOS( A$, C$ ) 


returns the position of the last occurrence in A$ of any character not in the string C$. 
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NUM( Ad ) 
returns the number for which A$ is its standard IEEE eight-byte representation. It is the 
inverse of Num§, e.g. 


Ok. PRINT Num( Num§$( 007 ) ) 
7 


ORD( A$ ) 

returns the character code for the single character A$. See Appendix D for the standard 
ASCII character codes, and the extended IBM PC character codes. Ord of the null string 
is —1. The inverse of Ord is Chr$. Ord also accepts longer names for some ASCII 
characters, which may be mixed upper- and lowercase. These are also given in 
Appendix D. E.g. 

Ok. PRINT Ord( “Esc” ) 

2/ 


PEEK( X ) 

returns the contents of the byte address X in your computer’s memory. True BASIC 
treats computer memory as a “‘flat’’ address; you never need to use segments, even to 
refer beyond a 64K boundary. Thus Peek( 100000 ) refers to byte address 100000 in your 
computer. The number returned by Peek represents the contents of the byte, and 1s an 
integer in the range 0 to 255. The contents of the byte may be changed by Poke (see 


below). 


PI 
returns the value of a (3.14159 26535 89793 ...) with as many digits of accuracy as your 
computer can handle. 


POKE( X, N ) 

places the value of N (rounded to an integer and reduced modulo 256 to lie in the range 
Q to 255 inclusive) in the byte at address X in your computer’s memory. The contents 
of any byte in memory may be viewed with Peek (see above). 


POS( A$, B$ ) 

returns the position of the first character in the substring of A$ that matches B}. If BS 
is not a substring of A$, Pos returns zero. Pos distinguishes between upper- and 
lowercase. E.g¢. 


Ok. PRINT Pos( “napoleon”, “leo” ); Pos( “napoleon”, “ape” ) 
5 0 


POS( A$, BS, N ) 

returns the position of the first character in the substring of A$, starting at character N 
or beyond, that matches B$. If N is less than 1, it is taken to be 1. If N is greater than 
the length of the string, or if there is no match, Pos returns zero. E.¢. 
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Ok. PRINT Pos("napoleon”, “leo”, 6 ); Pos( napoleon”, "n”, 2 ) 
0 8 
POSR( A$, BS ) 


returns the position of the first character in the last occurrence of the substring B$in A$, 
e.g. 


Ok. PRINT PosR("“tumtum”, "um” ) 
o 


POSR( A$, BS, N ) 

returns the position of the first character in the last occurrence of the substring B$ in A$ 
at or before position N. 

RAD( X ) 

returns X degrees converted to radians (X is always taken in deprees, even after an 
OPTION ANGLE RADIANS statement). 

REMAINDER( X, Y ) 


returns the remainder when X is divided by Y. If X and Y are both positive, Remainder 
is identical to Mod. Otherwise, the remainder has the same sign as X and the result is ne 
necessarily between O and Y. E.g. 


+ 





Ok. PRINT Remainder( —1, 3 ); Remainder( 7, —3 ) 
=e 


RND | 
returns a uniformly distributed “pseudo-random” number in the range 0 < Rnd <1. Th 
Same sequence 1s produced on every run, unless the RANDOMIZE statement is used 
before the first call of Rnd. | 

ROUND( X ) 

returns the nearest integer to X, e.g. 

Ok. PRINT Round( —3.14 ); Round( 4.99 ) 

=—3 

ROUND( X, N ) 


returns X rounded to N decimal places. If N 2 0, the result is rounded to N places to 
the right of the decimal point, otherwise it is rounded to the left of the decimal point, 
e.g. 


Ok. PRINT Round( 123.4, 0 ); Round( 199.4, —2 ) 
123 200 


SIN( X ) 


returns the sine of X. 
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SGN( X ) 
returns 1 if X > 0, 0if X = 0, and —1 otherwise. 


SIZE( A ) 
returns the current number of elements in the array A. 


SIZE( A, N ) 
returns the current number of elements in the Nth dimension of the array A. 


SQR( X ) 
returns the square root of X, which must be non-negative. 


TAN( X ) 
returns the tangent of X. Note that Tan( X ) is undefined for X = 2/2 + nz, where 71 1s 


any integer. 


TIME 
returns the current time in seconds past midnight. 


TRUNCATE( X, N ) 
returns X truncated to N decimal places. It works in the same way as Round, except that 
it truncates, e.g. 

Ok. PRINT Truncate( 123.49, 1 ); Truncate( 199.4, —2 ) 

123.4 100 


VAL( A$’) 

returns the numerical equivalent of A$, if A$ represents a number, otherwise an error 
message is generated. Leading and trailing spaces in A$ are ignored. Its inverse is Str$. 
It is useful in unpacking numbers printed as strings to a text file. E.g. 


Ok. PRINT Val( Date$[1:4] ) — 1 
1987 


UBOUND( A ) 
returns the upper bound of the one-dimensional array A. 


UBOUND( A, N ) 
returns the upper bound of the Nth dimension of the array A. 


UNPACKB( A$, N, L ) 
returns the value as an integer of the field of bits of length L packed into the string A$, 
Starting at bit position N in A$. Its inverse is Packb (see below in section C.2). More 
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details are in the Reference Manual. E.g. 


Ok. PRINT Unpackb( ">", 1, 6 ) 
15 


C.2. String Functions 


These functions all return string values. 


CHRS( N ) 


returns the character for which the character code is N. Codes 0 to 127 inclusive are 
defined by the ASCII character set (see Appendix D). Codes 128 to 255 are machine 
dependent (Appendix D also has the IBM PC character set for these codes). If N is 
outside the range 0 to 255, True BASIC converts it to this range by taking Mod( N, 255 ). 
The inverse of Chr$ is Ord. E.g. 


Ok. PRINT Chr$( 36 ); Chr$( 57 + 255 ); Chr$( 33 ) 

1! 

DATES 

returns the current date as a string in the format ‘‘yyyymmdd’’. This is a convenient 
format for sorting dates, since later dates will be later in the sorted sequence. 
EXLINES 

returns a String representing the line number and routine in which the most recent error 
occurred. Lines are numbered 1, 2, 3, ... 

EXTEXTS 


returns the text of the last error message. This is normally printed on the screen, unless 
the error is intercepted by an error handler. 


LCASES( AS ) 


returns a copy of A$ with all its characters in lowercase. 


LTRIMS( A$ ) 


returns a copy of A$ with leading spaces removed. 


NUMS( N ) 

returns a string containing the standard (machine independent) [EEF eight-byte 
representation of N. Its inverse is Num. These two functions are useful in packing 
numbers into strings to be written to record files. 


PACKB( A$, N, L, X ) 
rounds X to an integer and packs it into the string A$ as a two’s-complement binary 
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number, starting at bit offset N from the beginning of the string, in a field L bits long. 
Packb is a subroutine, which must be called with a CALL statement. Its inverse is Unpackb 


(see section C.1 above). E.g. 
CALL Packb( S$, 1, 8, 65 ) 


PRINT S$ 
END 


Ok. run 
A 


REPEATS( A$, N ) 
returns a copy of A$ repeated N times, e.g. 


Ok. PRINT Repeat$( “tum”, 2 ) 
tumtum 


RTRIM$( A$ ) 


returns a copy of A$ with all its trailing spaces removed. 

STRS( N ) 

returns the number N as a string, formatted as for PRINT, but with no leading or trailing 
spaces. Its inverse is Val. It is useful for packing numbers into a text file. E.g. 

Ok. PRINT Str$( 1 ); Str$( 0 ); Str$( 1 ) 


101 
Ok. PRINT Str$( 0.0000000001 ) 


1.e—10 


TIME$ 
returns the current time in the standard format ‘“‘/ii:mm:ss’?, where the hours are 


measured by a 24-hour clock. 


TRIM$( A$ ) 
returns a copy of A$ with all its leading and trailing spaces removed. 


UCASE$( A$ ) 
returns a copy of A$ with all its characters in uppercase. 


USING$( format$, exprl, expr2, ... ) 
returns a string expression containing all the expressions formatted by the format item 
exactly as they would be with PRINT USING. Using$ may be used in PLOT and WRITE 


statements, as well as in PRINT. 


C.3. Matrix Functions 


These functions may all appear on the righthand side of a matrix assignment statement, 
e.p. 
MAT A = Con 
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When they are used without arguments, the target array retains its current dimensions. 
When used with arguments, they may redimension the target array. If lower bounds are 
specified in the arguments, they must match the target array’s lower bounds. 

CON( N, M, ... ) 

returns a(N X M x...) array with every element set to 1. If the arguments are omitted, 
the size of the target array is unchanged. 

IDN( N ) 

returns the (N X N) identity matrix (a square matrix with ones on the diagonal, and 
zeros everywhere else). If the argument is omitted, the size of the target array is 
unchanged. This function may also be written as Idn( N, N ). 

INV( A ) 

returns the inverse of the square matrix A. If A is (nearly) singular an error message is 
generated. 

NULS( N, M, ... ) 

returns a (N X M x ...) string array with every element set to the null String. If the 
arguments are omitted, the size of the target array is unchanged. 

TRN( A ) 


returns the transpose of the matrix A, which must be two-dimensional. 


ZER( N, M, ... ) 


returns a (N X M x ... ) array with every element set to zero. If the arguments are 
omitted, the size of the target array is unchanged. 


C.4. Miscellaneous 


TAB( N ) 


(in a PRINT statement) moves the cursor to column N, where N is any numeric 
expression. If the cursor is already past that position, it moves to that position on the 
next line. If TAB is followed by a semi-colon, the cursor is left at that position; if acomma 
follows, the cursor moves to the next print zone. 


TAB( X, Y ) 


(in a PRINT statement) moves the cursor to column Y in line X, in full screen mode. Line 
1 is at the top of the screen. 


APPENDIX D 
CHARACTER CODES 


D.1. The ASCIl Character Codes 


The ASCII (American Standard Code for Information Interchange) codes are stan- 
dard, and apply to all computers that use True BASIC. The characters and names in the 
table below can be used as arguments of the Ord function. The additional special 
symbols for codes 0 to 31 are not standard to all computers (they apply to the IBM PC). 
You may not therefore be able to get them all on your screen. 


If your computer is compatible enough, you can display the characters directly with the 
Alt key. For example, to display xz on the screen, hold down the Alt key while typing its 
code (227: see section D.2) using the numeric keys on the righthand keypad. The 
symbol appears on the screen after you release the Alt key. 


The characters with codes 0 to 31 cannot be printed on most line printers. However, if 
your printer has the capability, all the other symbols can be printed, including the ones 
in section D.2. You must, however, know the special control code that will enable the 
printer to do this. For example, suppose the code is “‘esc t 1’. This can be sent to the 
printer as follows: 


PRINT CHR$(27); "t1”; 
END 


Ok. run >> 


Code  Char/Name Code Char Code Char 
000 nul (null) 04 «+ 086 V 
001 © soh 044 087 W 
002 @ stx 045 — O88 xX 
003 @ etx 046 —C 089 #8¥Y 
O04 } eot 047 / 090 Z, 
QOS fe eng 048 0 O91 
006 ack 049 «1 092 \ 
007 e bel 050 +2 093] 
008 051 33 goa, 4 
009 052 «4 095 __ 
010 @Olf 0532 «*SS 096 * 
OES ev 054 «6 097 a 
012 9° ff 055.4. 87 098 Ob 
013 oj cr 056 «38 099 ¢ 
014 = so 057% 89 100 «od 
015 3 Si (58.9 101 se 
016 » dle 059; 102 f 
017 4 dcl 060 < 103g 
018 { dc2 061 == 104 
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Code  Char/Name Code Char Code Char 

019 '! dc3 062 > 105 

020 q dc4 063 ? 106 j 

021 § nak 064 @ 107 k 

022 —syn 065 A 108 

023 ! etb 066 B 109 m 

024 ? can 067 & 110 n 

025 | em 068 D 111 O 

026 — sub 069 E 112 p 

Q27 <— esc 070 F 113 q 

O28 i fs O71 G 114 r 

O29 ++ 9S 072 H 115 S 

030 Arcs 073 I 116 t 

031 Vv us 074 J 117 u 

032 sp (space) 075 K 118 V 

033 076 L 119 W 

034 y 077 M 120 x 

035 # 078 N 121 y 

036 $ 079 O 122 Z 

037 % O80 P 123 { 

038 & 081 e, 124 : 

039 082 R 125 \ 

040 ( 083 S 126 ~ 

041 ) 084 T 127 del 

042 085 U 

D.2. Additional Codes 

The character codes in this section apply to the IBM PC. 

Code Char Code Char Code Char Code Char 
128 C 160 a 192 Li. 224 Ox 
129 i 16] i 193 aie 225 (3 
130 é 162 6 194 Te 226 r 
131 a 163 u 195 - 227 IC 
132 A 164 n 196 — 228 Zu 
133 a 165 N 197 an 229 O 
134 a 166 a 198 F= 230 Ll 
135 C 167 Oo 199 IF 231] T 
136 é 168 é 200 (L 232 D 
137 é 169 — 201 [7 233 0 
138 C 170 7 202 ot 234 Q 
139 1 171 1/5 203 Wr 235 O 
140 i 172 1/4 204 = 236 00 
14] i 173 i 205 = D4 D 
142 A 174" << 206 «oar 238, oe 
143 A 175 >> 207 aL 239 a 
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Code 


144 
145 
146 
147 
148 
149 
150 
1S] 
152 
153 
154 
155 
156 
157 
158 
159 


Char 


et Or © & oO, ©: © A BR [Th 


“h VakMm © 


Code 


176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
19] 


oe e & 
‘it * * & @ 
-) e © o 
i: © * = @ 
itie « 
-e 2 2 + # 


weer eteree 
ata ete 
Be teat 
‘th ft 2 

stis «= 


“se 8 @ @ 


JJ J LLL—# 


_—— 
ea ee 


JLtte ec y 


Code 


208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 


pe MEM IL H+H+EAITFA4EF Q 


Code 


240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
ZS 
254 
255 


Re PO) eee IN NV hee 
S 
—s 


blank 
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RESERVED WORD 








The following keywords and function names are reserved, and may not be used as 
variable names: 


Keywords 


ELSE 
ELSEIF 
IF 

NOT 
PRINT 
REM 


Functions 
DATE 
DATES 
DET 
EXLINES 
EXTEXTS$ 
EXTYPE 
MAXNUM 
P| 

RND 
TIME 
TIMES 


The tollowing three subroutine names are “partially” reserved in that you may not use 
these names for your own subroutines, but you may use them as names for variables, 
arrays, functions, or pictures: 


Subroutines 


DIVIDE 
PACKB 
POKE 
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TRUE BASIC LIBRARY FILES 


There are several library files on the True BASIC diskette that supplement the 
language. 








F.1. Mathematical Functions 


There are four mathematical libraries: 


FNHLIB.TRC Hyperbolic functions 
FNTLIB.TRC Trigonometric functions (in radians) 
FNTDLIB.TRC Trigonometric functions (in degrees) 
FNMLIB.TRC Mathematical functions 


There is a special “‘include”’ file for each library file containing the appropriate LIBRARY 
and DECLARE DEF statements. To use a particular library, all you have to do is include 
this file at the beginning of your program. E.g. to access the mathematical functions 


library, position the cursor at the beginning of the current program and enter the 
command 


Ok. INCLUDE FNM.TRU 


Alternatively, you can load the library file directly into the workspace, in which case the 
include file is not needed. 


The library files and their include files are as follows: 


Library file: FNHLIB.TRC Include file: FNH.TRU 


Function Explanation 

Sinh( A) Hyperbolic sine 

Cosh( A ) Hyperbolic cosine 
Tanh( A ) Hyperbolic tangent 
Coth( A ) Hyperbolic cotangent 
Sech( A ) Hyperbolic secant 
Csch( A ) Hyperbolic cosecant 
Asinh( A) Hyperbolic arcsine 
Acosh( A ) Hyperbolic arccosine 
Atanh( A ) Hyperbolic arctangent 
Acoth( A ) Hyperbolic arccotangent 
Asech( A ) Hyperbolic arcsecant 
Acsch( A ) Hyperbolic arccosecant 


Library file: FNTLIB.TRC Include file: FNT.TRU 


Function Explanation 
Cot( A ) Cotangent 
Sec( A ) Secant 
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Csc( A ) Cosecant 
Asin( A ) Arcsine 
Acos( A ) Arccosine 
Acot( A ) Arccotangent 
Asec( A ) Arcsecant 
Acsc( A ) Arccosecant 


(In addition, there are the built-in functions Atn, Cos, Sin and Tan). 


Library file; FNTDLIB.TRC Include file: FNTD.TRU 


The functions are the same as in ““FNTLIB”’, except that all angles are in degrees. 


Library file: FNMLIB.TRC Include file: FNM. TRU 


Function Explanation 

Logbase( X, B ) Log of X to the base B 

Erf( X ) Error function 

Normal( A, B ) Area under the normal curve from A to B 
Norm1( X ) Area under the normal curve from 0 to X 
Factril( N ) N factorial 

Binom( N, J ) Binomial coefficient 

Binompr( N, J, P ) Binomial distribution 

Poisson( M, J ) Poisson distribution 


F.2. Graphics Procedures 


Arc 
The library file ““ARC.TRU” contains four graphics pictures which extend the BOX 
CIRCLE statement. They are all invoked with the DRAW statement. 


The two angles required by BOXARC, BOXSECTOR, and BOXWEDGE are measured in 
degrees starting from the positive x-axis and moving counterclockwise. Either or both 
angles may be negative, but the second angle must be algebraically larger than the 
starting angle. That is, (—360, —270) will draw the same arc as (0, 90), but (90, 0) will 
draw nothing. 


BOXARC( Xmin, Xmax, Ymin, Ymax, FromAngle, ToAngle ) 


draws the arc that is that portion of the perimeter of the ellipse limited by the two angles. 


BOXDISK( Xmin, Xmax, Ymin, Ymax ) 
draws the disk obtained by drawing an ellipse and filling it with the same colour. 


BOXSECTOR( Xmin, Xmax, Ymin, Ymax, FromAngle, ToAngle ) 


draws the sector obtained by joining the ends of the arc with the centre of the ellipse. 
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BOXWEDGE( Xmin, Xmax, Ymin, Ymax, FromAngle, ToAngle ) 


draws the wedge obtained by drawing the sector and filling it with the same colour. 


Graphlib 


The library file “GRAPHLIB.TRU” contains the following subroutines, which must be 
invoked with a CALL statement: 


ARC( X, Y, R, Al, A2 ) 


draws an arc of the circle with centre at (X; Y) and radius R. The arc is from Al to A2, 
where Al and A2 are angles in degrees. 


AXES 
draws the X- and Y-axes of your current window. 
BARS( X, N ) 


draws a bar graph of N numbers stored in the one-dimensional array X. The routine sets 
its own window. 


FPLOT( A, B ) 


draws the graph of the function F( X ) between A and B. You must define the function 
F(X ) as an external function. The routine sets its own window. 


FRAME 


draws a frame around your current window. 


POLYGON( X1, X2, Yl, Y2, N ) 

draws an N-sided polygon within the box defined by the co-ordinates X1, X2, Y1 and 
eee 

TICKS( A, B ) 


draws the X- and Y-axes of your current window, with tick marks A units apart on the 
X-axis and B units apart on the Y-axis. 


Relplot 


The library file “RELPLOT.TRU” contains a module that allows plotting in “‘relative 
co-ordinates”. X, Y, DX and DY represent numeric quantities expressed in the 
co-ordinate system defined by a SET WINDOW statement in the calling program. 


Relative plotting must begin with the statement 
CALL PLOT_START( X, Y ) 


to specify the starting point of the new curve. Thereafter, statements of the form 
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CALL PLOT_REL( DX, DY ) 

will cause relative plotting. The statement 

CALL MOVE_REL( DX, DY ) 

will move to a new point without joining it to the previous one. Relative plotting must 
be terminated with the statement 

PLOT 

The statement 

CALL FLOOD_REL( DX, DY ) 

specifies a point for flooding in relative co-ordinates, without changing the position of 
the current point. 
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SOLUTIONS LO SELECTED 
PROBLEMS 


Chapter 1 


1.1 Input A, B 
LET Sum = A+B 
LET Diff = A-B 
LET Prod = A* 8B 
LET Quot = A/B 
PRINT "The sum is: ” Sum 
PRINT "The difference is: ”; Diff 
PRINT "The product is: ”; Prod 
PRINT "The quotient is: ”; Quot 
END 

1.2 INPUT C, V 
Let EnSroy =. Oty Bete 
PRINT “Energy:”; Energy 
END 


Chapter 2 


2.2 (d) comma should be decimal point 
(ec) asterisk should be omitted 
({) decimal point not allowed in exponent 
(h) comma should be decimal point 


2.3 (b) first character must be a letter 
(c) first character must be a letter 
(d) double quotes not allowed 
(f) asterisk not allowed 
(g) plus sign not allowed 
(h) space not allowed 
(1) first character must be a letter 
(j) Plis reserved 
(k) exclamation mark not allowed 


2.4 (a) P+W/U 
(b) P+W/(U+V) 
(c) (P+W/(U+4+V))/(P + W/(U- V)) 
(d) X*XorX*2 
(e) X*2.5 
(ft) X*0.5 
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(g) X*(Y +2) 
CE) a Yaz 
(i) X*(¥*2Z) 
(j) X-X°73/(8*2)+X*5/(5*4*3* 2) 
(k) (-B+ (B*2—4*A*C)*0.5)/(2*A) 
2.5 (a) LETI=I1+1 
(b) LETI=1*3+4+d 
(c) IFE>F THENLET G=EELSELETG=F 
(d) IF D>OTHENLETX=-—B 
(e) LET X = (A+8B)/(C*D) 
2.6 (d) Solve the quadratic in f: 
0.5¢ —ut+s=0. 
Part (c) is the special case s = 0. 
2.8 LETT = 


LET A 
LET B = 


2.9 LET A 
LET B 
LET A 
21I0A=4;X =1 + 1/2 4+ 3 + 1/4 


Owor AD SY 


[Try it out with some numbers! 


it 
+ A 
— A 


| 


ZALT LET X= 
FOR A= 1 TO 4 
LET X = X+1/7A 
NEXT A 
2.12 The limit is x. 


2.14 $581.26 


Chapter 3 


3.1 You should get a picture of tangents to a curve. See Chapter 12 for a graphics 
program to draw this construction. 


3.2 (a) 4 
(b) 2 
(c) The algorithm (attributed to Euclid!) finds the HCF (Highest Common Factor) 
of two numbers by using the fact that the HCF divides exactly into the 
difference between the two numbers, and that if the numbers are equal, they 
are equal to their HCF. 


3.3 1. Input Centigrade temperature (TempC) 
2. Calculate Fahrenheit temperature (TempF): 
2.1 Multiply TempC by 9/5 and add 32 
3. Print the value of TempF 
4. Stop. 
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INPUT PROMPT "Type Centigrade temperature: ”: TempC 
LET TempF = 9/ 5 * TempC + 32 
PRINT "Fahrenheit temperature is’; TempF 


END 
Chapter 4 
4.1 READ BoxFul, Apples 
LET Boxes = Int( Apples / BoxFul ) 
LET Left = Mod( Apples, BoxFul ) 
PRINT Boxes; "full boxes, with’; Left; “left over’ 
DATA ... 
END 
4.2 (a) LETC = Sqr(A*2+B% 2) 
(b) LET Theta = Theta * Pi / 180 (Convert to radians 
LET C = Sar( A*2+B% 2-2 * A * B * Cos( Theta ) ) 
(c) IF Mod( 1,2) =O THENLET X= — X 
4.3 (a) Log(X+X*2+A%2) 
(b) Log10( Y ) 
(c) (Exp( 3 * T)+T*2* Sin(4*T))* Cos(3*1)*2 
(d) 4* Atn(1 ) 
(ce) 1/Cos(X)*2+1/Tan(Y ) 
({) Atn( Abs( A/ X)) 
Chapier 5 
5.1 INPUT PROMPT "Type the two numbers: ”: A, B 


IF A > B THEN 
PRINT A; "is larger’ 
ELSE IF A <BTHEN 
PRINT B;"is larger’ 
ELSE 
PRINT "The numbers are equal” 
END IF 
END 


5.2 1. Repeat 10 times 


1.1 Input number 

1.2 If number < 0 then 
1.2.1. Increase negative counter 
otherwise if number = 0 then 
1.2.2 Increase zero counter 
otherwise 
1.2.3 Increase positive counter 


—_———— 
— 
eet et 
Sl 
ed 
os 
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5.4 


5.6 
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2. Print counters 
|! Neg: Negatives 
|! Pos: Positives 
|! Zer: Zeros 
FOR | = 1 TO 10 
INPUT X, — !Trailing comma allows all the input on one line 


IF X <0 THEN 
LET Neg = Neg + 1 


ELSE IF X = O THEN 
LET Zer = Zer + 1 
ELSE 
LET Pos = Pos + 1 
END IF 
NEXT | 


PRINT Neg; "are negative” 
PRINT Zer; “are zero” 
PRINT Pos; “are positive” 
END 


1. Let C be the amount of change in cents 

2. Number of $5 notes = Int( C/ 500 ) 

3. Replace C by Mod( C, 500 ) (the remainder) 
4. Print number of $5 notes 

5. Number of $2 notes = Int( C/ 200 ) 

6. Replace C by Mod( C, 200 ) 

7. Print number of $2 notes 

8. Etc., etc., etc. 


. Input a, b,c, d, e,f 

. Let u = ae — db; v = ec — bf 

If u = 0 and v = 0 then 

3.1 Lines coincide 

otherwise if wu = 0 and v +0 then 
3.2 Lines are parallel 

otherwise 

3.3 Let x = v/u; y = (af — dc)/u 
3.4 Print x, y 

4. Stop. 


WN rR 


|! SOLUTION OF TWO SIMULTANEOUS LINEAR EQUATIONS: 
| ax + by =c 
! dx =~ey=f 


READ A, B, C, D, 


LET U = 
LET V = 


| 
mM > 


———— 
= —— —— 
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IF U = 0 AND V = O THEN 

PRINT "LINES COINCIDE” 

ELSE IF U = 0 AND V <> O THEN 
PRINT "LINES ARE PARALLEL” 

ELSE 
LET X = (E * C—B * F)/ U 
LET Y = (A* F-D* C)/U 
PRINT "X ="; X,"¥ ="; Y 


END IF 
DATA: 1, 15:3; oer! 
END 
Chapter 6 
6.1 LET Sumi, Sum2 = 0 
FOR | = 1 TO 100 
LET Sumi = Sumi + | 
LET Sum2 = Sume2 + 1 / | 1 this | 
NEXT | ! this is for 6.2 
PRINT Sum1; Sum2 
END 


6.2 See 6.1 


6.3a !Easy as Pl 
WE ie= | 
ILET Pie = 1 [The name PI is reserved 


LET Sign = 1 Sle ey : 
| sign of current term in seri 
INPUT PROMPT "Number of terms? ”: N J erm in series 


FOR K = 1TON 


LET Sign = — Sign ! much fa 
| 7 | aster than (—1)*K 
LET Pie = Pie + Sign / (2 * K + 1) oe 
NEXT K 
LET Pie = 4 * Pile 
PRINT After’; N; “terms ! =”: Pie 
END 
6.3b !Pi again 
LET Pie = O IThe name PI is reserved 


INPUT PROMPT "Number of terms? ”: N 


FOR K = 1TON 
LET Pie = Pie + 1 / (4 * K—3) / (4 * K—1) 
NEXT K 
LET Pie = 8 * Pile 
PRINT “After’; N; "terms x =”; Pie 
END 
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6.5 


6.6 


6.7 


6.8 


INPUT PROMPT "x increment? ": H 


FOR X = —-1 TO 1 
LET F = X * Sin( Pi * (1 + 20 * X) / 2) 


PRINT X, F 
NEXT X 


END 
‘The limit e 


LET X = 0.1 
1 TO 


FOR | 10 
LET e 1 /(1—X) * (1 / X) 
PRINT USING” ##.#########4#": X, E  'see Chapter Eight 
LET X = X/ 10 

NEXT | 


END 


[Fourier approximation to square wave 
CLEAR 
INPUT PROMPT "Number of terms? ": N 


FOR t = 0 TO 1 STEP 0.1 
LET Four = 0 


FOR K =0 TON 
LET Four = Four + Sin( (2 * K + 1) * Pi * t)/(2* K + 1) 


NEXT K 
LET Four = 4 * Four / Pi 


PRINT t; Four 
NEXT t 


END 


[Compound interest in the limit 


CLEAR 

INPUT PROMPT "A, r (%), ki": A, 1, k 
LET n = 1 

LET r =r / 100 


FOR | = 1 TO 20 
LET V=A* (1 + Fr /n) %* (nN * k) 
PRINT USING "######": n; 
PRINT USING” ####.####4##" V, A * Exp( r * k ) 
LET nn =2* n 
NEXT | 


END 
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6.9 


LET |, Sum = O 


DO WHILE Sum < 100 
LET Ans = Sum lsince Sum will go over 100 
LET Ints = | 
LET lee 
LET Sum = Sum ¢+ | 
LOOP 
PRINT “Sum: ". Ans 
PRINT "Integers: ”; Ints 
END 


6.10 Fora given interest rate, the time to double 1s always the same, no matter what the 


6.11 


initial balance is. This is a feature of what is called geometric or exponential 
growth. 


lEuclid’s algorithm for the HCF of two numbers M and N 
INPUT M, N 
LET A =M 
LET B=N 
DO WHILE M <> N 
DO WHILE M>N 
LET M=M-—N 
LOOP 
DO WHILE N > M 
LET N= N-M 


LOOP 
LOOP 
PRINT "HCF of’; A; and”; B;"is’; M 
END 
[Cos the Taylor way 
|! Coz : Sum of Taylor series / It : Counter | 
| Term: General term in series / X : Angle (radians 
INPUT X 
LET Term = 1 


LET Coz, It = 0 


DO WHILE Abs( Term ) > 1e—-5 

LET Coz = Coz + Term 

LET it = It + 1 

LET Term =—Term * X*2/ (2 * It) / (2 * It—1) 
LOOP 


PRINT "By Taylor after’; It; "terms: "; Coz 
PRINT “By True BASIC:”; Cos( X ) 
END 
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6.13 $157.75 in the 54th month (don’t forget the interest in the last month!) 


6.14 See section 12.1 for a graphics version. 


Chapter 8 
8.1 PRINT USING "###.##": P; 


8.2 (a) + 23.5 


b) —1.23 
c) —2.343e—2 
d) abc 
83 OPEN #7: NAME"b:Volts.Exp”, CREATE NEWOLD It may be there 
SET #7: POINTER END [Prepare to add on at end 


INPUT PROMPT "Type in voltage and time:”: V, T 
PRINT #7: V; T 

CLOSE #7 

END 


chapter 9 


9.1a DIM Num ( 0:100 ) 
FOR | = 0 TO 99 
LET Num( |) = | 
NEXT | 


9.1b DIM Num( 50 ) 


FOR | = 1 TO 50 
LET Num(l) = 2 * | 
NEXT | 


9.2 DIM F(100) 
LET F(1), F(2) = 1 
FOR | = 3 TO 100 
LET F(l) = F(I-1) + F(I-2) 
NEXT | 
END 


9.3. DIM Bits(5) the binary digits 
INPUT Num 
LET Dec = Num ‘keep a copy of the decimal number 
FOR | = 5 TO 1 STEP —1 Low order bits first, please 
LET Bits(l) = Mod( Num, 2 ) lif Num is even/odd, the last bit is 0/1 


LET Num = Int( Num / 2 ) 
NEXT | 


PRINT USING “Decimal: ### Binary: ": Dec; 
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9.4 


9.6 


FOR |1=1 1705 Print high order bits first 
PRINT USING "#": Bits(l); 
NEXT | 


END 


1. Initialize: N = 3; P; = 2; 7 = 1 (prime counter) 
2. While N < 1000 repeat: 
ed OS 
2.2 Rem = mod(N, P;) 
2.3 While Rem #0 and P; < VN repeat: 
2.3.1 Increase 1 by 1 
2.3.2 Rem = modlN, Pi) 
2.4 If Rem #0 then 


2.4.1 Increase j by 1 (that’s another prime!) 


2.5 Increase N by 2 (even numbers can’t be prime) 
3. Print all the P;’s 


4. Stop. 


DIM DayS( 0:6 ) 

MAT READ Days 

INPUT PROMPT "Day, month, year:”: Day, Month, Year 
LET Yr = Year 

LET Mon = Month - 2 

I—F Mon <=0 THEN LET Mon = Mon + 12 

I—- Mon >= 11 THEN LET Yr = Yr-1 

LET Cent = Int( Yr / 100 ) 

LET Yr = Mod( Yr, 100 } 


LET F = Int( 2.6 * Mon—0.2) + Day + Yr + Int( Yr / 4) ... 


.. + Int( Cent / 4) — 2 * Cent LET F = Mod(F, 7 ) 
PRINT USING "%%~"" Day, Month; 


PRINT USING "####": Year; 


Ithis next bit is just to be clever ... 
LET YourDate$ = Str$( Year ) & Using$("%%", Month ) ... 


a & UsingS( "Vo", Day ) 

LET MyDate$ = Dated 
IF YourDate$ < MyDate$S THEN 

PRINT” was a”; 
ELSE IF YourDate$ = MyDate$ THEN 

PRINT” is a”; 
ELSE 

PRINT” will be a”; 
END IF 


PRINT Day$(F) 


DATA Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday 
END 
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[Best straight line and correlation coefficient 


OPEN #8: NAME "b:Expt. Txt’ 
LET N, S1, S2, S3, S4, S5 = 0 


DO WHILE MORE #8 
LETN=N +1 
INPUT #8: X, 
LET S1 = S1 
LET S2 
LET S3 
LET S4 
LET S5 = 

LOOP 

LET B = (S1—S2 * S3/N) / (S4—S2* 2/N) 

LET A = (S8-—B * S2)/N 

LET R = (N * S1—S2 * S3) / Saqr( N * S4—S2 * 2)/ Sar(N*S5—S372) 

PRINT USING "A: ##.##, B: ##.##, R: ##.4#":A,B,R 

END 


| 
NnNnWN 


Chapter 10 


10.1 


10.2 


10.3 


LINE INPUT Text$ 

LET Text$ = Rtrim$( Text$ ) 

LET L = Len( Text$ ) 

FOR | = L-—1 TO 1 STEP -—1 
PRINT Text$[ 1:1 J; 

NEXT | 


END 
LINE INPUT PROMPT "Type in binary number: ”: Bit$ 
LET Bits = Rtrim$( Bit$ ) [Strip trailing blanks 
LET L = Len( Bit$ ) 
FOR |= 1 TOL 
LET Dec = Dec + Val( Bit$[ I: ] ) * 2 * (L—-1) 
NEXT | 
PRINT USING “Decimal representation: #########": Dec 
END 
Input all the text first (assume there is at least one line of text) 


Istop must be in (L—1)th position 


print line backwards 
'substring of one character 


DO 
LINE INPUT Line$ 
LET Line$S = Rtrim$( Line$ ) 
LET Lng = Len( Line$ ) 
LET TextS§ = Text$ & Line$ 
LOOP UNTIL Line$[ Lng:Lng } ="/" 


LET Lng = Len( Text$ ) 


istrip trailing blanks 


loin up all the text 


i 
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LET Text$[ Lng:Lng ] =”” lremove the / 
LET NextBlank = 1 


INow search the text for blanks, and remove them 


DO 
LET NextBlank = Pos( Text$,”", NextBlank ) !next blank 
IF NextBlank <> O THEN 


LET Text$[ NextBlank:NextBlank ] =”” rub it out 
END IF 
LOOP UNTIL NextBlank = 0 Ino more 


INow print the processed text in groups of 5 
FOR | = 1 TO Lng—1 

PRINT Ucase$( Text$[ I:l ] ); 

IF Mod( |, 5 ) = O THEN PRINT ””; 
NEXT | 


END 


Chapter 11 


MZ 


BS 


DECLARE DEF Ex lexternal function 


INPUT PROMPT "Type in value of X:": X 
PRINT USING "Taylor series: ######. ###H4#####": Ex( X ) 
PRINT USING "True BASIC: HHELEHEHE FEFBFAHEHH': Exp( X ) 


END 
DEF Ex( X ) function definition 
IExp ( X ) the Taylor way 

LET Sum = 1 

LET Eps = 1e-—6 

LET K = 1 lseries counter 


LET Term = 1 first term 
DO WHILE Abs( Term ) > = Eps 
LET Term = Term * X/K 
LET Sum = Sum + Term 

LET K=K +1 

LOOP 


LET Ex = Sum 
END DEF 


DECLARE DEF Bin 
INPUT PROMPT "Type N and R:”: N, R 
PRINT ”“NcR:”; Bin( N, R ) 


END 


DEF Bin( N, R ) function definition 
[Binomial coefficient 
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LET Prod = 1 


FOR| =1TOR 
LET Prod = Prod * (N + 1—l) / | 
NEXT | 


LET Bin = Prod 
END DEF 
11.5 DECLARE DEF Phi 


FOR X = 0 TO 4 STEP 0.1 
PRINT USING "##.# HEHEHE": X, Phi( X ) 


NEXT X 
END 
DEF Phi( X ) function definition 
[Approximates area under normal curve from O to X 
LET A = 0.4861836 
LET B = —0.1201676 
LET C = 0.937298 
LET R = Exp(—-0.5 * X * 2 )/ Sar 2 * Pi ) 


LET T = 1/ (1 + 0.38326 * X) 
LET Phi=05—-R*(A*T+B6* 7T*24+0C0* T * 3) 
END DEF 


11.6 DECLARE DEF F 


FOR | = 0 TO 20 
PRINT USING"## #####": |, F( | ) 
NEXT | 
END 
DEF F( N ) function definition 
'Recursive definition of Fibonacci numbers 
IF N= 0OOQORWN = 1 THEN 
LET F = 7 
ELSE 
LET F = F( N—-1 ) + F( N-2 ) 
END IF 
END DEF 


Chapter 12 
12.1 !Draws f(x) on graphics screen. Press Ctrl-Break to stop. 
SET WINDOW -1, 1, —2, 2 
SET MODE “hires” 
DO 
INPUT PROMPT ”x increment? ”: H 
FOR X = —1 TO 1 STEP H 
LET F = X * Sin( Pi * (1 + 20 * X) / 2) 
PLOT X, F; 


— 


= - cme 
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NEXT X 
PLOT 
LOOP 
END 


Chapter 13 


13.1 !BINGO! 


DIM Bing( 100 ) 
RANDOMIZE 


FOR | = 1 TO 99 iput the numbers in the bag 
LET Bing(l) = | 
NEXT | 


FOR | = 1 TO 99 land take them out again at random 
LET R = Int( 99 * Rnd + 1 ) 
LET Temp = Bing( R ) I2nd method of section 13.5 
LET Bing( R ) = Bing( | ) 
LET Bing( | ) = Temp 
NEXT | 


FOR | = 1 TO 99 Inow print them 
PRINT USING "###": Bing(l); 
IF Mod( 1, 10 ) = O THEN PRINT 110 per line 
NEXT | 


END 


13.2 !Estimating m= by Monte Carlo: 
[Rather generate random co-ordinates in the 1st quadrant, 
land count the proportion that fall inside the unit quarter- 
Icircle that fits into this quadrant. 


RANDOMIZE 
INPUT PROMPT "How many points would you like? ”: Num 


FOR | = 1 TO Num 


LET X = Rnd 

LET Y = Rnd 

IF X * X + Y * Y <1T7HENLET PIE = Pie + 1 
NEXT | 


LET Pie = 4 * Pie / Num 
PRINT USING "x is very roughly ##.4####": Pie 
END 


13.4 Theoretically (from the binomial distribution), the probability of a DFU crashing 
is 1/4, while that of a DFIV crashing is 5/16; more can go wrong with it, since it has 
more engines! 
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13.5 On average, A wins 12 of the possible 32 plays of the game, while B wins 20, as 
can be seen from drawing the “‘game tree’. Your simulation should come up with 
these proportions. (However, it can be shown from the tree that B can always 


force a win, if he plays intelligently. ) 


Chapter 14 


14.1 SUB Trans( A(,) ) 
'Transpose the (N x M) matrix A 


DIM R( 1,1 ) lworking space 
LET N = - Size( A, 1 ) lrows in A 
LET M = Size( A, 2 ) Icolumns in A 
MAT REDIM R( M, N ) IR is now (M x N) for the transpose 
FOR |! = 1TOM 

FOR J=1TON 

LET RA( I, J ) = AC Jd, I) 

NEXT J 
NEXT | 
MAT A = R replace A 

END SUB 


14.5 SUB RowSwop( A(,), |, J ) 
'Swops rows | and J of the matrix A 


LET M = Size( A, 2 ) lcolumns 
FOR K = 1TOM 
LET Temp = A( Il, K ) 
LET A( Il, K ) = A( J, K ) 
LET A( J, K ) = Temp 
NEXT K 
END SUB 


14.6 SUB Sum( A\(,), Row, Col, |, J ) 
[Finds the sums (Row and Col) of Ith row and Jth column A 


LET Col, Row = 0 


LET N = Size( A, 1 ) rows 

LET M = Size( A, 2 ) lcolumns 

FOR K = 1 TOM lrun across all columns 
LET Row = Row + A( |, K ) 

NEXT K 

FOR K = 1TON lrun down all rows 
LET Col = Col + A( K, J ) 

NEXT K 


END SUB 
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14.7 SUB MaxElt( A(,), EltMax, RowMax, ColMax ) 
IFinds largest element (EltMax) of A and the row (RowMax) 
land column (ColMax) in which it occurs (ties are ignored) 


LET N = Size( A, 1 ) lrows 

LET M = Size( A, 2 ) columns 

LET EltMax = A( 1, 1 ) for starters 

LET RowMax, ColMax = 1 lditto 

FOR | =1TON ‘down all rows 
FOR J=1TOM facross all columns 


IF A( |, J) EltMax THEN 
LET EltMax = A( Il, J ) 
LET RowMax = | 
LET ColMax = J 
END IF 
NEXT J 
NEXT | 


END SUB 


Chapter 15 
18.1 xo = 13 x1, = 1.333; x2 = 1.2639; x3 = 1.2599; x4 = 1.2599 .. 
l 


th 
I 


(a) The real roots are 1.856 and —1.697. 

(b) 0.589, 3.096, 6.285 ... (roots get closer to multiples of x). 

fey) TEZS 

(d) 1.303 

(e) There are real roots at 1.768 and 2.241. The other two roots may also be real, 
but [ couldn’t find them. Perhaps you can? 


15.3. Successive bisections are: 1.5, 1.25, 1.375, 1.4375 and 1.40625. The exact answer 
is 1.414214..., so the last bisection is within the required error. 


15.5 22 (the exact answer 1s 21.3333...) 

15.6 x(1) = (a) 0.75, (b) 0.6836 (0.6321 exactly). 

15.7 i.e. solve dy/dx = x? numerically. The answer is 14 (this is effectively the 
‘rectangular rule” for integration). 

15.8 The exact answer is 2117 (i.e. 1000 e”*). 

15.10 The differential equations to be solved are 
dS/dt = —r,S, 
dY/dt = 11S — rey. 


Using the Runge-Kutta-Merson subroutine of section 15.5 gives S = 64.496e24 
and Y = 23.124e25 after 8 hours (the same as the exact solution). However, Euler 
gives S = 41.373e22 and Y = 37.282e24 after 8 hours, which is way out. In fact, 
the Euler solution gets worse as h gets smaller. 
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15.12 !Impala with Euler 


INPUT R, B, A, X 
LET H = 1 
FOR T = 1 TO 24 
LETX =X +H* (R-B * X * Sin’ A* T )) * X 
PRINT USING "### HHAHHHH#": T, X 
NEXT T 


END 


15.14 With 10 intervals (7 = 5), the luminous efficiency is 14.512725%. With 20 
intervals, it is 14.512667%. These results justify the use of 10 intervals in any 
further computations involving this problem. This is the standard way of testing 
the accuracy of a numerical integration or differentiation: halve the step-length 
and see how much the solution changes. 
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